To be picky, you can simplify davorg's just a little:

{
  my %hash;
  @hash{@array} = ();
  $same = (1 == keys %hash);
}
[download]

$_="goto+F.print+chop;\n=yhpaj";F1:eval