Select Code to Download

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]);

use File::Slurp;

my $file = 'foo.bar';
my $temp = read_file($file);
my ($name1, $name2, $address, $phone) = split("\t", $temp);