perl -ne '@foo[10]="print"; eval( $foo[ substr( ( $seen{$_} .= @ARGV), -2)])' file1 file2