while (<>)
{
   $lines{$ARGV}++;
   ...
}