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