Select Code to Download

joey___joey@yahoo.com
martha___martha@aol.com

open (IN, "filename.txt") or die "can't open filename.txt!";
while ( $line = <IN> ) {
...
  push @addresses, $parts[1];
}
close IN;

$names[0]

open (IN, "filename.txt") or die "can't open filename.txt!";
while ( $line = <IN> ) {
...
  $hash{$name} = $address;
}
close IN;

print "joey's address is ", $hash{"joey"}, ".\n";