for (my $i = 0; $i <= $#Array1; $i++) {
    $Array1[$i] =~ s{(;[^;]+)$}{};
}

print $Array1[1];