use strict;
use warnings;

sub rm_first_3_chars {
    my $name = shift;
    return substr($name, 3);
}

my @list_of_names = ("Fred", "Billiam", "Wozniapple");

@list_of_names = map { rm_first_3_chars($_) } @list_of_names;

print join(", ", @list_of_names), "\n";