p.pl

use warnings;
use Data::Dumper;

sub a { 5 };

%a = (a=>1,'b',2);
@b = ('a'=>1=>'b'=>2);
print Dumper %a;
#print $a{'a'},"\n";
print Dumper @b;
print $b[3],"\n";

$obj = bless({'unique_id'=>'123', 'attr'=> {'col' => 'black', 'things' => [qw(this that etc)]}}, 'MY_class');

print Dumper $obj;