Yeah, it can be done on the next line after your tr:

$fn =~ s/gpfs_data/nas\/rdds/;
[download]

You definitely don't want to loop through the entire @allpathlisting array every time you add a single new file to it.