use strict;
use warnings;
use experimental 'autoderef';

BEGIN {
   warn "@INC\n";
   warn "$]\n";
}


my $a=[];

push $a,1,2,3;

warn "@$a";