@list = split('', $read);

foreach (@list) {
    $key = sprintf("%s%2.2x", $key, $_);
    print $key, "\n";
}

##</code><code>##

@list = unpack 'C*', $read;

##</code><code>##

@list = split('', $read); 
$key = join "", map { sprintf "%2.2x", ord } @list;

##</code><code>##

@list = unpack 'C*', $read; 
$key = join "", map { sprintf "%2.2x", $_ } @list;