Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}

__END__

 1={ count => 1, "values" => [1] }
 2={ count => 1, "values" => [2] }
...
30={ count => 2, "values" => [30, 30] }
19={ count => 3, "values" => [19, 19, 19] }
20={ count => 3, "values" => [20, 20, 20] }

#!/usr/bin/perl -w
use strict;
...
{
   print "num = $row->[0] \tfreq=$row->[1]\n" if ($row->[1] > 0);
}

__END__
num = 1     freq=1
...
num = 30    freq=2
num = 19    freq=3
num = 20    freq=3