sub1 {
...
   return @a;
}

$r = [sub1];