use Perl6::Junction qw(all);

print "uniform\n" if (all(@array) eq $array[0]);