#!/usr/bin/perl

use strict;
use warnings;

use 5.010;
use utf8;
use Data::Dumper;             # Kann auskommentiert werden, wenn alles läuft

my $daten = "Wohnen -> Roll1,
Wohnen -> Roll2,
Wohnen -> Roll3,
Bad -> Roll4,
HWR -> Roll5
Wohnen -> Roll6,
";

my @daten = split /,?\n/,$daten;   # Daten nach ,LF aufteilen

# Kann auskommentiert werden, wenn alles läuft
say Dumper \@daten;		   # nur zu Ausgabe was nach split drin ist

my %hash;
map {
	my ($key, $value) = split /\s+->\s+/; # Zeile am -> aufteilen, um Schlüssel + Wert zu bekommen
	push @{ $hash{$key} },$value;	      # Wert in Array (wegen mehrfacher Werte!) schieben
} 
@daten;

# Kann auskommentiert werden, wenn alles läuft
say Dumper \%hash; # # nur zu Ausgabe was am Schluss drin ist