Subroutines

• sub triple { my $number = shift; return $number * 3; }

• sub trim { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string; }