my %hash= some_list_of_key_value_pairs();
my @keys= keys %hash;

#...
my %copy= %hash;
#...

my @values= values %copy;
do_something_with($keys[$_],$values[$_]) for 0..$#keys;