my ($string, $int) = (split(/\;/, $dat));