sub return_array {
   my @a = (0, 1, 2, 3);
   return @a;
}
sub return_list {
   return (0, 1, 2, 3);
}

my @array1 = return_array();
my @array2 = return_list();