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