#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %data;

{
    local $/ = '';
    while (<>) {
        my ($key, @data) = split /\n/;
        for (@data) {
	     	s/^"//;
	     	s/"$//;
        }
        $data{$key} = \@data;
    }   
}

$Data::Dumper::Indent=1;

print Dumper \%data;