#!/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()