Help for this page

Select Code to Download


  1. or download this
    ++@h{@a,@b,@c,@d};
    
  2. or download this
    while ( my ($k, $v) = each %h ) {
      print "$k:$v.\n";
    }