Select Code to Download

sub sum {
    my $list = shift;
    my $sum = 0;
...
}
my @values = qw(1 2 3 4 5 6 7);
print sum(\@values), " ; '@values'\n";

sub add_two {
    my $arrayref = shift;
    $_ += 2 foreach @$arrayref;
...
}
my @values = qw( 1 2 3 4 5 6 7 );
print add_two(\@values), " ; '@values'\n";

sub sanitize_strings {
   my $arrayref = shift;
   s/[^a-zA-Z0-9_\-]/_/g foreach @$arrayref;
...
}
my @strings = qw( abc 123 a&21 j**!k );
print sanitize_strings(\@strings), " ; '@strings'\n";