нещо от сорта би следвало да е поне толкова ефективно колкото и "eq".

use strict;



my @ar1 = qw(a a a);

my @ar2 = qw(a a b);

my $buf = 'a';





print "Array 'ar1' contains only '$buf' chars\n" if _eqls(\@ar1, $buf);

print "Array 'ar2' contains only '$buf' chars\n" if _eqls(\@ar2, $buf);





sub _eqls {

  my $arr = shift;

  my $buf = shift;

  my $h   = {};



  for my $el (@$arr) {

    $h->{$el}++;

    last if keys %$h > 1;

  }



  return 'true' if $h->{$arr->[0]} == scalar @$arr;

  return undef;

}