How about using values %hash or a hash slice? Sample code:

#!/usr/bin/perl

use strict;
use warnings;

my %hash = (1 => 2, 3 => 4, 5 => 6);

my @array1 = keys %hash;
print "@array1$/";

my @array2 = values %hash;
print "@array2$/";

my @array3 = @hash{@array1};
print "@array3$/";

__END__
output:
1 3 5
2 4 6
2 4 6
[download]