find(
   sub {
      my ($spls) = @_;
      ...
   },
   $seek_path
);

##</code><code>##

#!/usr/bin/perl

use File::Find;

my $seek_path = "/usr/bin";
my @spt1      = qw(perl py);

foreach my $spls (@spt1) {
    find(
         sub {
             print "^$spls : $_\n" if /^$spls/;
         },
         $seek_path
    );
}

__END__
$ ./728317.pl
^perl : perl
^perl : perlbug
^perl : perlcc
^perl : perldoc
^perl : perlivp
^perl : perl5.8.8
^py : pydoc
^py : python
^py : python2.4