for ($s;
      ^^
      useless

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    for my $s (0..$s_no)