use Crypt::CBC; 
	my $cipher = Crypt::CBC->new( -key => 'fjeislqp12345678',
    								-cipher => 'Blowfish');
.. various parameter and file declarations..
	$cipher->start('encrypting');
	for (my $i=0; $i < @$name; $i++) {
    	$param_name = $name->[$i];
        $param_value = $value->[$i];
        $lineout = $param_name . "," . $param_value . "," . $filedate . "," . $utid . "\n";
        print LATEST $cipher->crypt($lineout);
        print ALLFILE $cipher->crypt($lineout);
        print LAFILE $cipher->crypt($lineout);
    }
    print LATEST $cipher->finish();
    print ALLFILE $cipher->finish();
    print LAFILE $cipher->finish();