Help for this page

Select Code to Download


  1. or download this
        my $fh=$_[0];
    my $h=$_[1];
    shift @_;
    shift @_;
    foreach my $key (@_)
  2. or download this
        my ( $fh, $h, @keys ) = @_;
    
    foreach my $key ( @keys ) {
  3. or download this
        my $fh = shift;
    my $h = shift;
    
    foreach my $key ( @_ ) {