Help for this page
use Modern::Perl; ... my %hash = map { $_ => 1 } @_; keys %hash == 1 ? 1 : 0; }
The array's elements are the same.