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