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

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