%h = map { $_, $h{$_} } min(keys %h);