Create perl_na_count.pl