Select Code to Download

#!/usr/bin/perl -w

...
    keys %score;
    
print @output;

my @rated_data = (
   [$number1,$info1],
   [$number2,$info2],
   [$number3,$info3],
);

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.