count_bases(20, $ARGV[1]);
count_bases(30, $ARGV[1]);
...
sub count_bases {
my $min_quality = shift;

while(<>)
{ 
  my @tmp_ar = split();
  ... 
  #make comparisons and put #s in hash 
}