my $l;
foreach $i (keys(%hash)) {
    $l = $l < $i ? $l : $i;
}
$hash{ $l } = ...