my @fields = qw(date time type ...);
my %response;

@response{@fields} =  split /,/, $response, 39; # hash slice

if ($response{type} eq 'widget') {...