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

my $ref = [ 54, 17, 23 ];
print "before: access via ref: " . join(',', @$ref) . "\n";
$ref->[2] = 18;   # overrides '23' value
print "after: access via ref: " . join(',', @$ref) . "\n";
