Select Code to Download

#!/usr/bin/perl
#
...

    printf qq{%4d => %d\n}, $value, $count;
}

   1 => 0
   2 => 0
...
  23 => 0
  24 => 0
  25 => 0