open (FILE,"filepath") || die "Can't open file";
chomp ( my ( $var1 , $var2 , $var3 ) = <FILE> );
close (FILE)