use strict;
use warnings;

my @array = qw(a b c d);

printArray (\@array);

sub printArray {
  my $aref = shift;
  
  print "First element by ref = " . $aref->[0] . "\n";
  print "First element by sugar = " . $$aref[0] . "\n";
}