use strict;
use warnings;

my $key = "A21B12C212AD12FF";
my @key = map hex, $key =~ /../g;
print "@key\n";