my @keys = keys %$href;
my @vals = values %$href;
while (my ($key, $val) = each %$href) { ... }