@X = @$X_ref   ; kopiert die Werte nach @X um
*X = $X_ref         ; legt ein Alias an, also  \@X==\$X_ref