$ perl -Mstrict -Mwarnings -le 'my $x = []; print ref($x) eq "ARRAY" ? q{aref} : q{other}'
aref