my ( $first, $second ) = routine();
print "$_\n" for keys %{$first};
print "$first->{Key1}\n";
# etc.....