note stephen To add insult to injury, you could do this: <CODE> perl -ne '@foo[10]="print"; eval( $foo[ substr( ( $seen{$_} .= @ARGV), -2)])' file1 file2 </CODE> Adding just that extra bit of obscurity to make it completely byzantine... <P> stephen </P> 36725 36725