Help for this page
use warnings; use strict; ... my $number = $block->{NUMBER}; print "$number\n"; }
use warnings; use strict; ... ]; print "$arefs->[1][0]{NUMBER}\n";