D:\tmp\pm>perl -M5.012
    use strict;
    use warnings;
    use feature "declared_refs";
    no warnings "experimental::declared_refs";
    say ref my \$scalar;
    say ref my \@array;
__END__
SCALAR
ARRAY