Help for this page
for ($s; ^^ useless
my $s = 0; for (; $s<=$s_no; $s++)
for (my $s=0; $s<=$s_no; $s++)
for my $s (0..$s_no)