#!/usr/bin/perl
use strict;
use warnings;

my %data = (
    'baz' => 'zab',
    'bar' => 'rab',
    'foo' => 'oof',
    'key' => 'yek',
    'drop_out' => '- do a last -',
);

while (my ($key, $val) = each(%data)) {
    last if ($key eq 'drop_out');
    print("$key => $val\n");
}

print("-- Exited the loop.  Let's try it again...\n");

while (my ($key, $val) = each(%data)) {
    last if ($key eq 'die');
    print("$key => $val\n");
}

print("-- Done\n");
exit(0);