Help for this page
use Modern::Perl; no warnings qw /uninitialized /; my @result; ... 36 7 37 8 38 0
1 0 2 0 ... (...) 49 0 50 0