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

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