Perl: Convert hex string to the character

my $hx = "41";
my $ch = chr(hex($hx));
print $ch;

The output will be:
A