use File::Basename;

my @basenames = map basename($_),
my @result = map { chomp; $_ } `find '.' -type f -print -name '*.pl'`
  or die "No scripts found - $! \n";