Select Code to Download

use strict;
use warnings;
...
        ];
-1
$VAR1 = [];

sub myfunc {
    my ($aref) = @_;
    $aref->[0] = 'foo';
    print 'in sub ', Dumper($aref);
}