use feature ":5.10";
my %hash = map { $_ => state $i++ } qw(red blue green yellow black white purple brown orange gray);

for (1..2) {
    while (($k,$v) = each %hash) {
        do_something_with($k, $v);
    }
}