for my $s (0..$s_no)