my %list_o_num;
$list_o_num{$_}++ for @list_o_num;

my @true_top_3 = (sort { $b <=> $a } keys %list_o_num)[0..2];

print "T3: ", join(', ',@true_top_3), "\n";