(($k, $v) = each %hash) {
    $n++;
    print "$n: $k => $v\n";
}

%hash = ( blue => 'berries',
        red => 'roses',
        black => 'coffee',
        yellow => 'bananas',
        );

END { persistent '%hash'; }