Select Code to Download

my @array= qw ( this that the the other this the off );

...
  $_[$_{$_}] = $_ for map{$_{$_}++; $_} @_;
  $_[-1];
}