Select Code to Download

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

use Data::Dumper;
print Dumper \%data;