my %hash = grep !/^$/, map {
   ($a,$b) = $_ =~ /^([^;]+);([^;]+)/;
   ($a,$b);
} @line;