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