my ($first, @fields) = split ';', $line;