Good idea, but removing the hard coding of file names perhaps gives....

perl -ne "
$ARGV eq $ARGV[0] ?
    $h{$_}++ : 
        $h{$_} ? 0 : print;
" small.txt large.txt
[download]