open FH, "file1" or die $!;
open FH2, "file2" or die $!;

$readlinefromfile1 = <FH>;
$readlinefromfile2 = <FH2>;
$readfromfile1again = <FH;

close FH2;
close FH;