&numbers($b); #### sub numbers { my $b=shift @_; print "$b"; }