#! /usr/bin/perl -w

while(<DATA>) {
  my $path = `find /partial/prefix/path -name "*$_*"`;
  ...
}
__END__
filepart1
filepart2
...
filepartN

##</code><code>##

while(<DATA>) {
  chomp;
  ...
}