my %data;
while (<>) {
    chomp;
    my %rec;
    @rec{ qw/type url name description/ } = split /,/;
    push @{$data{$rec{'type'}}}, \%rec;
}