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