### grabbing every column my $dbCommand = qq^select ^; foreach (@ticketsFields) { $dbCommand .= "$_,"; } $dbCommand =~ s/,$//; #### my $dbCommand = 'select '.join ',',@ticketsFields; #### my @newArray = @{$rows}; #### for(my $x = 0; $x < $ticketsFieldsSize; $x++) { ### assign the key and value in the hash $GenericData{$ticketsFields[$x]} = $newArray[$x]; } #### @GenericData{@ticketsFields} = @$rows; #### \@ticketsRecords; }