I want to scanf, dammit!

Answer

my $n = 500;
my @line;
while ( <> ) { last if ( $n -= @line = split) < 0 }
print "$line[$n]\n";