in reply to Is this possible

Golf? 

perl 
-e"BEGIN{@ARGV=map qq[RESULTS_FILE.$_],1..50}" 
-nle"$h{$_->[0]}.=qq[\t$_->[1]]for[split]}{print qq[@$_]while@{$_=[eac
+h%h]}"

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Replies are listed 'Best First'.
Re^2: Is this possible
by ikegami (Patriarch) on Mar 24, 2008 at 08:30 UTC
    You don't need a seperate -e for the BEGIN (saves 5 chars)
[reply]

In Section Seekers of Perl Wisdom