#!/usr/bin/perl -l

use strict;
no strict 'refs';
use warnings;
use Devel::SimpleTrace;
use Data::Dumper::Concise;

print "With Arrays: ";

my(@a) = qw(0 1 2 3);
my $ar = \@a;      
my $air = \$a[0]; 

print "Define array >@a<\nCreate a reference to \$a[0]";
print "array ref: >@$ar<";
print "array index ref: >$$air";

@a = qw(a b c);
$air = \$a[0];
print "Change array to >@a<";
print "array ref: >@$ar<";
print "array index ref: >${$air}<";