CBC überschreibt Daten

[Falke]

Hallo liebes Forum,

ich habe ein Problem, was auch sonst ;)
Ich Verschlüssele meine Daten mit Crypt::CBC klappt soweit auch alles gut solange ich nur eine Variable oder den Text so eingebe. Wenn ich aber mehrere Variablen sowie unten dargestellt verschlüsseln will überschreibt er die vorigen Daten. Also wenn $vareins = "Test" und $varzwei = "Hi" steht am Ende nicht TestHi so wie es sollte sondern Hist. Kann mir mal jemand sagen was ich falsch mach? Schonmal schönen Dank im vorraus.

sub lic_schreiben{
    my $licpfad = shift(@_);
    my $wandeln = shift(@_);
    my $cipher;
    my $ciphertext;
    my $OK;

$cipher = Crypt::CBC->new( {'key'           => 'is egal',  #Verschlüsselung
                              'cipher'          => 'Blowfish',
                              'iv'              => '$KJh#(}q',
                              'regenerate_key'  => 0,   # default true
                              'padding'         => 'space',
                              'prepend_iv'      => 0
                           });
    $ciphertext = $cipher->encrypt("$vareins$varzei$usw");
    $OK = open(DATEI_HANDLE, ">$licpfad\ecp.lic");
    print DATEI_HANDLE $ciphertext;
    close DATEI_HANDLE;
print "#####################################################################\n";
print "#                                                                   #\n";
print "#          Der Lizenzschluessel wurde erfolgreich erstellt !        #\n";
print "#                                                                   #\n";
print "#####################################################################\n";
}

Mfg Jasper