my $state = "IA";
my $zip = "44444";
my $phone = "343-343-3443";
open(FILE, "file.txt") or die "oops $!";
my @contents = <FILE>;
close(FILE) or die "oops $!";

print @contents;