for my $num (10,15,16,22,27,30,31) { 
    print $num, $num{
        ( 
            grep{ $_ >= $num } 
            sort{ $a <=> $b } keys %num 
        )[0]}, 
        $/; 
}