my ($a_key) = keys %$myHas;


foreach my $l (keys %$myHas) {
    ....
    last;
}


while (my ($a_key) = each %$myHas) {
    ....
    last;
}
keys %$myHas;  # Reset iterator.
[download]