my $txt = $details[4];

my @t = split /#/, $txt;

for (my $i=0; $i<@t; $i+=2) {
    print "normaler Text: $t[$i]\n";
    print "Aufzählung: ", $t[$i+1], "\n" unless $i == $#t;
}