my $file = 'foo.bar';
open(FH, $file);       # as you already have
my @temp = <FH>;       # pull all lines into a list
close FH;              # because we are good people
my ($name1, $name2, $address, $phone) = split("\t", @temp[0]);