Select Code to Download

$interval = <STDIN>; #a number, typically on the order of 500
%HoHoA = (
...
     $a => [lots of numbers],
     $b => [lots of numbers],
     $c => [lots of numbers] } );

for $RomanNumeral (keys %HoHoA) {   
# For each key RomanNumeral
...
      $i++;
     }
  }

$interval = 500;
%HoAoHoA = (
...
     {$a => [7000,7100],
      $b =[7110],
      $c =>[]},