open INPUT, '<', 'theFileName';

##</code><code>##

print "$_ found in lines: @{$counter{$_}}\n" for sort keys %counter;