while ( $sth->fetch() ){
    %record=(%row);
    push @names, $record{ 'NAME' };
    delete $record{ 'NAME' };
    $data->{"data_$i"} = \%record;
    $i++;
}