use strict; my @foo1 = qw(1 1 1 1 1 1 1 1 1 1); my @foo2 = qw(1 1 1 1 1 1 3 1 1 1); print "Checking \@foo1: "; &ident_array(\@foo1); print "Checking \@foo2: "; &ident_array(\@foo2); sub ident_array($) { my $array_ref = shift; my $flag = 1; for(my $i=1; $i < $#{$array_ref}; $i++) { $flag = 0, last if $array_ref->[0] ne $array_ref->[$i]; } print "array elements are "; print "not " unless $flag; print "identicle\n"; }