Help for this page

Select Code to Download


  1. or download this
    my $k;
delete $hash{$k} while $k = each %hash;
  2. or download this
    delete $hash{$_} for keys %hash;