#!/usr/bin/perl

@energies = (1, 4, 9, 16, 25, 36, 49, 64);
foreach $valeur (@energies)
  {
    print ($valeur."\n");
  }
