You can use printf to do this with a lot less effort:

    perl -e 'printf "%02X%02X%02X\n", 44, 26, 127'

    Prints: 2C1A7F
[download]

--
John.