$ ./tb.pl 

Before map (oldlist)
==========
/etc/passwd
/etc/group
/egg/drop
/etc/shadow

After map (oldlist)
=========
/etc/passwd
/etc/group
/egg/drop
/etc/shadow

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

1
$