use strict;
use warnings;
use 5.010;

sub do_stuff1 {
    given($_[0]) {
        chomp;
        say;
    }
}