my $str = ";allon;native;;";
my @arr = split /;/, $str;
my $indx = 0;
foreach (@arr){
print "$indx:$_\n";
$indx++;
}