Help for this page

Select Code to Download


  1. or download this
    my %hash = ("one" => 1, "two" => 2, );
while ((my $key, my $value) = each %hash) {
    print $key, "\n";
}
  2. or download this
    foreach ((my $key, my $value) = each %hash) {
    print $key, "\n";
}