my %hands = (spot => 'damned');
out_out(%hands) while $hands{spot} eq 'damned';

sub out_out {
    my %hands = shift;
    print "Out, damned spot! out, I say!\n";
    delete $hands{spot};
}
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--