Select Code to Download

use strict;

...
my @sorted_list_o_num = sort { $b <=> $a } @list_o_num;
my( $num_1, $num_2, $num_3 ) = @sorted_list_o_num;

#!/usr/bin/perl -w
use strict;
...
}
@list_o_num;
my @true_top_3 = sort { $b <=> $a } keys %list_o_num;