Select Code to Download

my %num = (15=>1, 20=>2, 25=>3, 30=>4);

...
29  maps to  4
30  maps to  4
31  maps to  Use of uninitialized value in print

for my $num (10,15,16,22,27,30,31) { 
    print $num, $num{
...
        )[0]}, 
        $/; 
}