Help for this page

Select Code to Download

Select or download this
my @response = split /\,/ $response, 39;

Select or download this

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