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