my %hash = ( 12 => undef, 18 => undef,  6 => undef,
             22 => undef, 28 => undef, 16 => undef );
printf "Max value is %d.$/", ( sort {$b <=> $a} keys %hash )[0];