my %hash = map {$_,"Merry Christmas!"} (1..100);

foreach my $value (values %hash) {
   crash_it(\%hash, $value);
}

sub crash_it {
   my ($hash, $value) = @_;
   delete $hash->{1};
}