@abc = (1,2,3,4,5);
$ref = \@abc;
print "$ref = ";
print @$ref."\n";

$num = @$ref;
print "num $num\n";

if($num == @$ref) { print "equal\n"; }
my $i; for($i=0; $i < @$ref;$i++) {
        print "$i -> @$ref[$i]\n";
}
%bbc = (1,2,3,4,5,$ref);
$rrr = \%bbc;
print $rrr."\n";
print join(' ',@{$rrr->{5}})."\n";
print join(' ',@{$rrr->{5}}[2])."\n";
@{$rrr->{5}}=(6,7,8,9,10);
print join(' ',@{$rrr->{5}})."\n";
print "$ref = ";
print join(' ',@abc)."\n";