Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;
    
    my @things = qw /one two three one four four five six two seven/;
    
    say join ' - ', keys %{{map {$_, 1} @things}};