use strict;
use warnings;
use 5.010;

sub do_stuff1 {
    $_ = shift;
    chomp;
    say;
}

sub do_stuff2 {
    my $arg1 = shift @_;
    chomp $arg1;
    say $arg1;
}

&do_stuff1(1, 2, 3);
&do_stuff2(1, 2, 3);

##</code><code>##

sub do_stuff1 {
    shift;   #val into $_
    chomp;
    say;
}