use strict;
use warnings;
use 5.010;

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