my @all_hex = qw(A1B2 C3D4);
my $mul = hex($all_hex[0]) * hex($all_hex[1]);
print "dez: $mul\n";
$mul = sprintf '%x', $mul;
print "hex: $mul\n";