my $key = "0123456789ABCDEF0123456789ABCDEF";

my @b = map { chr hex $_ } $key =~ /(..)/g;