use File::Basename qw( basename ); use File::Find::Rule qw( ); my @remoteFilelist = map basename($_), File::Find::Rule ->file() ->in($remoteCpPath);