%tmp = shift; foreach (keys %$tmp) { print "$tmp{$_}\n"; }