Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. A subroutine that returns a value
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
}