in reply to Input variables

open my $IN, "<", "filename" or die "can't open filename: $!";
my $line1 = <$IN>;
my $line2 = <$IN>;
#etc

[download]

Unless I state otherwise, all my code runs with strict and warnings

In Section Seekers of Perl Wisdom