#!/usr/bin/perl -w

@a = (2, 3, 4, 5);
print "at start, \@a is @a\n";

foreach $num (@a) {
      $num **= 2;
}

print "at end  , \@a is @a\n";