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 }