Select Code to Download

my ($one, $two, $three) = qw(1 2 3); # works just fine

#!/usr/bin/perl -w
use strict;
...
@hash{@keys} = unpack ( "B16 n2 A4 A8 A2 A A A3 C2" }, $buffer);

print $hash{mode3};