open(ADDRESSIN, "filename") || die "could not open file for read: $!\n";
while($line = <ADDRESSIN>)

"this is where I need help"
$line1 = <name>
$line2 = <address>