say "hello, world";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

sub addprint {say [+] @_}

##</code><code>##

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

##</code><code>##

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