...
   my $guess  = shift;
   my $file   = (grep { /$guess/i } $ftp->ls )[0]
                or return "Couldn't find $guess.\n";
   ...