Select Code to Download

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

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