Select Code to Download

use Modern::Perl;

my @things = qw /one two three one four four five six two seven/;

say join ' - ', keys %{{map {$_, 1} @things}};