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};
}