my $highnibble = ((ord $byte[0]) >> 4));
The variable $highnibble prints the right value.

##</code><code>##

my $lownibble = (((unpack ("H", $byte[0]) << 4) >> 4));
The variable $lownibble prints the wrong value (value of $highnibble).