use constant {
    THIS => 0, THAT => 1, THEOTHER => 2, ...
    TEMPL1 => 'N A10 S',
};

my @discrete = unpack TEMPL1, read( $file, $size );

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