#!/usr/bin/perl -w

my $a = 5;
my $b = \$a;
my $c = \$a;
my $d = [ $a ];
my $e = [ $a ];
print "\$a = $a\n";
print "\$b = $b\n";
print "\$c = $c\n";
print "\$d = $d\n";
print "\$e = $e\n";
print "\$\$b = $$b\n";
print "\$\$c = $$c\n";
print "\$\$d[0] = $$d[0]\n";