my @response = split /\,/ $response, 39;

##</code><code>##

my %response;
@response{qw/names for all the fields/}
    = split /\,/ $response, 39;