use Data::Dumper;
my $str = "EXPRESS     liver; colon; small intestine; other; mixed; bone";

my ($name, $werte) = split(/\s/, $str, 2);
my %zielhash = ();
my $count = 0;
foreach (split(/\;/, $werte)) {
    $_ =~ s/^\s+//g;
    $_ =~ s/\s+$//g;
    $zielhash{$name."_".++$count} = $_;
}

print Dumper(\%zielhash);

my ($mode, @towns) = $string =~ 
  /^(EXPRESS) # oder was auch immer
  \s+       # ein oder mehrere leerzeichen
  (         # beginne zu speichern
    [^;]+;?) # speichere bis zum naechsten;
             # wenn es nicht gefunden wird, dann bis zum
             # ende des strings
  )+        # ende des speichern, wiederholen
  $
  /x;
my %hash = ();
if (scalar (@towns)) {
  for my $i (0..$#towns) {
    $hash{$mode . "_". $i+1} = $towns[$i];
  } # for
} # if