Select Code to Download

use constant {
    THIS => 0, THAT => 1, THEOTHER => 2, ...
...
my @discrete = unpack TEMPL1, read( $file, $size );

print "THIS:", $discrete[ THIS ];

sub get2DArray {
    my( $x, $y, $templ, $templSize, $fh ) = @_;
...
}

my $array2D = get2DArray( 100, 100, 'N', 4, $fh );