#!/usr/bin/perl -l
use strict;
use warnings;
my $var = "Hello Jason";
my @var = qw(aaa bbb ccc ddd eee fff);
*var = \"Hello World";
*var = \@var;
*var = sub{print "This is a sub"};
print ${*var{SCALAR}};
map{print}@{*var{ARRAY}};
&{*var{CODE}}();
for my $field (qw/SCALAR ARRAY HASH CODE/){
print ref *var{$field}?ref *var{$field}:"undefined";
}
sub show{
print "This is in show()";
}
&{*show{CODE}}();
==================================================================================
output:
Hello World
aaa
bbb
ccc
ddd
eee
fff
This is a sub
SCALAR
ARRAY
undefined
CODE
This is in show()