my @fields = qw(code subcode ...); # List of fieldnames
my %response;
@response{@fields} = split /,/, $response, 39;