#!/usr/bin/perl
	
@energies = (1, 4, 9, 16, 25, 36, 49, 64);
$i = 0;
while ($i < 8)
  {
    print ("energie ".$i.": ".$energies[$i]."\n");
    $i++;
  }
