Select Code to Download

#!/usr/bin/perl ---

use strict;
...
0 0
0 0

$ARRAY1 = [
            [
              ( undef ) x 2,
...
2        40    
3    70    20    
4        5