Select Code to Download

say "hello, world";

sub addprint ($n,$m) { say $n+$m }  # ?

sub addprint {my $sum = 0; $sum += $_ for @_; print $sum, "\n"}

sub addprint (*@num) { say [+] @num };

sub addprint {say [+] @_}

my %loops = (while => 'handles', for => 'lists');

for =$fh { ... }
for @array { ... }