sub list_perl_files_without_extension {
    opendir my $dir, '.' or die "Could not open current directory";
    while ( my $file = readdir $dir ) {
        print "$&\n" if $file  =~ m/.*(?=\.pl)/;
    }
    closedir $dir;
}