Select Code to Download

@data = (
           ["1.6","2.2","3.4","3.6","5.4","6.2","7.1", "8.1", "9.0"],
           [    1,    2,    5,    6,    3,  15,    4,     3,     4],
           [ sort { $a <=> $b } (1, 2, 5, 6, 3, 15, 4, 3, 4) ]
         );

$log = File::Tail->new( name => $MAILLOG, tail => -1);
while (defined(my $line=$log->read)) {
...
     $hits{$values} = \$data[1][$idx];
   }
}