#!/usr/bin/perl

use warnings;

$main::foo = [];

while ((my $varname, my $globvalue) = each %main::){
    local *varAlias = $globvalue;
    my $reftype = ref $varAlias;
    print "$varname = $reftype\n" if $reftype;
}
 
__END__
Name "main::foo" used only once: possible typo at /tmp/try line 5.
foo = ARRAY

##</code><code>##

    our $varAlias = $globvalue;

##</code><code>##

    use vars qw /*varAlias/;