Select Code to Download

my @names = @{ $sth->{NAME} };

...
   my @ordered_values = @{$row}{@names};
   ...
}

while ( my $row = $sth->fetchrow_arrayref ) {
   my @ordered_values = @$row;
   ...
}