Select Code to Download

use strict;
use warnings;
...
  print "First element by ref = " . $aref->[0] . "\n";
  print "First element by sugar = " . $$aref[0] . "\n";
}

First element by ref = a
First element by sugar = a