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