Select Code to Download

#!/usr/bin/perl -w

...
print "$_\t$count_seq{$_}\n" for keys %count_seq;
    exit;
}

perl test.pl -a spe try.txt > result

Use of uninitialized value $_ in scalar chomp at test.pl line 39.
Use of uninitialized value $_ in pattern match (m//) at test.pl line 4
+0.
Use of uninitialized value $_ in numeric gt (>) at test.pl line 41.