for (my $s=0; $s<=$s_no; $s++)