Select Code to Download

use warnings;
use strict;
...
    my $number = $block->{NUMBER};
    print "$number\n";
}

use warnings;
use strict;
...
];

print "$arefs->[1][0]{NUMBER}\n";