my %h = map { chomp; /:\s+/ ? ( $` => [split ';', $'] ) : () } <DATA>;

##</code><code>##

my %h = 
  map { $_->[0] => [split ';', $_->[1]] }
  map { chomp; [split /:\s+/] }
  <DATA>;