In the example that you have shown the characters are in decimal and not hex. To convert them use chr:

    #!/usr/bin/perl -wl

    my @nums  = qw(84 67 49 67 83 50 79);
    my @chars = map {chr} @nums;

    print join '', @chars;

    __END__
    Prints:

    TC1CS2O
[download]

If the numbers were in hex you could convert them with hex:

    my @chars = map {chr hex} @nums;
[download]

--
John.