Select Code to Download

use strict;
use warnings;
...
@list_of_names = map { rm_first_3_chars($_) } @list_of_names;

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

$ perl flp.pl
d, liam, niapple