use strict;
use warnings;

my $ca = 'A';
print "$ca\n";              # outputs A
printf "%s\n", $ca;         # outputs A
printf "%c\n", ord($ca);    # outputs A
printf "%x\n", ord($ca);    # outputs 41
printf "%d\n", ord($ca);    # outputs 65