my %hash = map {split /,/} grep !/^,$/, split /'/, $data;