$         
$ cat t.pl
#!/usr/bin/perl

use strict;
use warnings;

my @oldlist = qw X /etc/passwd /etc/group /egg/drop /etc/shadow X;

my @newlist = map  s/\/etc\/// ,  @oldlist;

print "\nAfter map (newlist)\n";
print "=========\n";
foreach (@newlist) {
    print "$_\n";
}

$ ./t.pl

After map (newlist)
=========
1
1

1
$