@values = @hash{ @keys };
for (@values) {
   print $_->[0], $_->[1];
}