如何在Perl中求和大十六进制值？

#!/usr/bin/perl

use strict;
use warnings;

my $hex_value1 = "1A";
my $hex_value2 = "2B";

my $decimal_value1 = hex($hex_value1);
my $decimal_value2 = hex($hex_value2);

my $sum = $decimal_value1 + $decimal_value2;

print "Sum of $hex_value1 and $hex_value2 is $sum\n";