$, = $/;
$a[$_] = ++$line while <>;
print map $a[$_] || (), $[ .. $#a;

##</code><code>##

$, = $/;
undef @a[<>];
print grep exists $a[$_], $[ .. $#a;