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