H:\>perl
use strict; use warnings; use 5.006_001;
my %h = ("v1", 1);
print foreach (sort keys %h);
^Z
v1
H:\>