Select Code to Download

use File::Basename;
use Data::Dumper;
...
my @newlist = map {basename $_} @oldlist;

print Dumper \@newlist;

$VAR1 = [
          'passwd',
...
          'drop',
          'shadow'
        ];