12 lines
208 B
Perl
12 lines
208 B
Perl
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
|
|
}
|