Select Code to Download

use Modern::Perl qw/2015/;

my %data;
...
0 2 0 1 0
2 2 0 9 0
2 2 9 2 2

0 1 1 1 0
0 2 0 1 0
2 2 0 1 0
...
2 2 0 2 1
0 2 1 1 0
2 2 9 2 2