my %hash = ( test => 1, hallo => 2, welt => 3);

my $counter = 0;
for my $value ( values %hash ) {
    my $key = (keys %hash)[$counter];
    print $key;
    $counter++;
}