for(my $i=0;$i<@saba;++$i)
{my $sabasize=scalar(@saba);