Sounds like you're pulling a file name from your delimited file, and using it to find (somewhere) any files that match, and when a match is found, copy that file to another directory/location.

Assuming that's correct, I agree with Joost, that File::Find and File::Copy are the way to go, 'cause you need to traverse recursively. Something like (untested):

find(\&findit,'/path/to/highest/level/dir/you/need/to/start/from');

sub findit {
    /^your_regex$/ &&  ## your match regex would replace "your_regex"
    copy("$File::Find::name","/path/to/copy/location/$_")
}
[download]

Probably flaws in my suggestion, but hopefully this will get you headed in the right direction.