in reply to Re^2: Enclosing one-liner in a bigger loop - unix
in thread Enclosing one-liner in a bigger loop - unix

Look at $ARGV which contains the current file name.

And you could avoid the eskimo kiss if you want with something like: perl -lne '/^([^\t]*)\t/ and not $h{$1}++ and print $1'

In Section Seekers of Perl Wisdom