Mega Code Archive

 

Categories / Perl / Subroutine

 

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 }