my @arr = split /;/, $str, -1;
# pop @arr;   # to drop the last element