'open' allows you to specify a lexical variable for the filehandle name like such:

open(my $fh, "file.txt") or die("Can't open file.txt");
while(my $line = <$fh>) {
    # stuff here
}
close $fh;
[download]

See Indirect Filehandles