Help for this page

Select Code to Download

Select or download this

while (<$in1>){
  chomp;
...
    print $out1 "$key => $value \n";
  }
}