for ( 1 .. 10 ) {
   print square( $_ ), " ";
}

print "\n";

sub square
{
   $value = shift;       # use shift to get first argument
   return $value ** 2;   # returns the result of $value ** 2
}