$interval = <STDIN>; #a number, typically on the order of 500
%HoHoA = (
  'I' => {
     $a => [4,10,200,6000,7000,7100],
     $b => [75,350,5900,6402,7110],
     $c => [0,95,5990,6450] },
  'II' => {
     $a => [lots of numbers],
     $b => [lots of numbers],
     $c => [lots of numbers] },
  'III' => {
     $a => [lots of numbers],
     $b => [lots of numbers],
     $c => [lots of numbers] } );