use constant TEMP1 => 'N A10 S';

my %discrete;
@discrete{qw( this that theother )} =
    unpack TEMPL1, read( $file, $size );

print "this:", $discrete{ this };