Select Code to Download

perl -MData::Dumper -e '@a=(1, 2, 1, 2, 3); my @result = grep { !$seen
+{$_}++ } @a; print Dumper(\%seen);'

...
          '2' => 2
        };