my $fh=$_[0]; my $h=$_[1]; shift @_; shift @_; foreach my $key (@_) #### my ( $fh, $h, @keys ) = @_; foreach my $key ( @keys ) { #### my $fh = shift; my $h = shift; foreach my $key ( @_ ) {