my $linenum = 10;
while ( my $line = <FILE>) {
    next unless $. == $linenum;
    # Process the one line here...
    last;  # No need to continue.
}