Help for this page
my @array= qw ( this that the the other this the off ); ... $_[$_{$_}] = $_ for map{$_{$_}++; $_} @_; $_[-1]; }