Perl | hex Function

#!/usr/bin/perl

# Initialising some hexadecimal values for
# the parameter of the hex function
$A = "A";
$B = "B";
$C = "1A";
$D = "2C";

# Calling the hex function
$E = hex $A;
$F = hex $B;
$G = hex $C;
$H = hex $D;

# Getting the equivalent decimal number
# of the given hexadecimal number
print "$E\n";
print "$F\n";
print "$G\n";
print "$H\n";

#!/usr/bin/perl

# Initialising some hexadecimal values and
# Calling the hex function
$A = hex D;
$B = hex af;
$C = hex AF;
$D = hex BF;

# Getting the equivalent decimal number
# of the given hexadecimal number
print "$A\n";
print "$B\n";
print "$C\n";
print "$D\n";