print ( $common_letters[ $_ ] || "-" ) for ( 0 .. length $reference );