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