Select Code to Download

use Modern::Perl;
no warnings qw /uninitialized /;
my @result;
...
36    7
37    8
38    0

1    0
2    0
...
(...)
49    0
50    0