#!/usr/bin/perl

use strict;
use warnings;

my %hash = (test => 1, hallo => 2, dies => 3, ist => 4, ein => 5, welt => 6);

my $counter = 0;
while( my ($key,$val) = each %hash){
    print $key, "//", $val,"\n";
    # das "keys %hash" dient dem Reset!
    keys %hash and last if ++$counter == 2;
}

print "dazwischen\n";

while( my ($key,$val) = each %hash){
    print $key, "//", $val,"\n";
}