my %hash = map { chomp; split /;/, $_, 2 } ;