As stated in my reply to your previous, similar question the percent sign (here in %names) indicates a hash, not an array and does not retain a natural order. Use an array, not a hash.

Here's an SSCCE to demonstrate:

#!/usr/bin/env perl 
use strict;
use warnings;

my @names = qw/XX AA BC DD/;
print "@names\n";
[download]

Further note that you are not returning anything here, merely outputting it.

It helps to be specific, by:

print(select, [%names]);
[download]

Did you really mean using Text::CSV:

$csv->print(select, [%names]);
[download]

In the same way you were advised here? Please read and understand How do I post a question effectively?.

If your "array" is %names, that isn't an array in Perl's terminology; it's a hash; what PHP calls an "associative array."

And hashes do NOT maintain their input order (without the likes of Tie::Hash. If it's perl (nod to Vicar 1nickt, above) you're using, you might consider that. But first, read some of the help about arrays and hashes you'll find here... in Tutorials or Super Search and perhaps even read perldoc perltie (from your CLI).

And does the select part of line 1 means you're trying to print something pulled from a db? If so, Super Search and the Tutorials should also offer assistance.

That doesn't look like Perl code.

In Perl the whole point of an array is that it maintains order.

my @x = (3, 1, 2);
print "@x";
[download]

3 1 2
[download]