$ perl -E '
    use strict;
    use warnings;
    use feature "declared_refs";
    no warnings "experimental::declared_refs";
    say ref my \$scalar;
    say ref my \@array;
'
SCALAR
ARRAY

##</code><code>##

D:\tmp\pm>perl -E'say $]'
Can't find string terminator "'" anywhere before EOF at -e line 1.

##</code><code>##

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