sub ords{ sprintf "%02x " x length($_[0]), unpack 'C*', $_[0]; }

##</code><code>##

{
    my $t = '%02x ' x 1000; 
    sub ords2{ 
        sprintf substr( $t, 0, length $_[0]*5 ), unpack 'C*', $_[0]; 
    }
}