sub x {
    ();
}

@x = x();

use Data::Dumper; warn Dumper([\@x]);