#!/usr/bin/perl
#
# eg10: array ref example
#
use strict;
use warnings;

my @a = ( 54, 17, 23 );
print "before: " . join(',', @a) . "\n";
my $ref = \@a;
$$ref[2] = 18;   # sets $a[2]
print "after: " . join(',', @a) . "\n";
