for my ($k, $v) ( map { $_, $h{$_} } sort keys %h )