use Path::Tiny qw/ path cwd /;
my $dir = cwd(); 
my( $first ) = @ARGV;
# my @prfiles = grep { $_ eq $first } path( $dir )->children;
my @prfiles = path('.')->children( qr/\Q$first\E/ );