Select Code to Download

my $junk;
while (my ($outterkey,$outterval) = each %$hash)
{
...
    }
  } 
}

my %hash;
while ($line = <INPUTFILE>) {
...
    $hash{$1}=$2;
  }
}