#!/lusr/bin/perl
use warnings;

$sum = 0;
$ref_sum = \$sum;
@list = (1, 3, 5, 7);
$ref_list = \@list;

print $ref_sum, "\n";
print $ref_list . "\n";
print \@list . "\n";
print [@list] . "\n";

$ref_array = [@list];
print $$ref_array[0], $$ref_array[1], "\n";
print $$ref_list[0], $$ref_list[1], "\n";

$$ref_array[0] = 5;
print "@list\n";
print $$ref_array[0], $$ref_array[1], "\n";
print "@list\n";
$$ref_list[0] = 9;
print "@list\n";

print "\n---------------------------------\n";
print "@$ref_list\n";

print "\n=================================\n";

foreach $i(0..2){
    $temp = <STDIN>;
    @a = split //, $temp;
    $sent[$i] = \@a;
}
foreach $i (0..2){
    print $sent[$i] ." ";
}
print "\n\n";

foreach $i (0..2){
    $temp = <STDIN>;
    @a = split //, $temp;
    $sent[$i] = [@a];
}
foreach $i (0..2){
    print $sent[$i] . " ";
}

print "\n---------------------------\n";
$sum = 17;
#$str = \$sum;    
$str = 'sum';
print "$$str\n";