use 5.010;
{
   my @a = (1, 2, 3);
   sub a {
       return @a;
   }
}

my @x = a();
push @x, 4;
say a();