my $r = \@a;
print comparifier($r, "ARRAY$r") ?1:0,"\n";   # 1