my $i = 0; # counter that will increment with each line
my $q = 33;# the line you want
my $line;  # this variable will hold your line in the end

open (FILE, "<$file");
while(<FILE>) {
   $line = $_ if ($q == $i);
   $i++;
}
close FILE;