Select Code to Download

my %list_o_num = map {
                         if(exists $list_o_num{$_})
...
                     }
                 @list_o_num;

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";

#!/usr/bin/perl -wT
use strict;
...
                            @list_o_num)[0..2];

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