geht das auch in einer schleife?

[georg]

hallo,
ich habe untenstehenden code und nun frage ich mich ob ich das nicht kürzer schreiben kann oder evtl. in eine schleife packen.
hat jemand vielleicht eine idee?
vielen dank im voraus.

$ausgabe_i_HV =  join(';',$Vers_Nr,$Stp,$Bearbid,$VorDat,$RV_VP1,$VP1_Nachname_HV,$VP1_Vorname_HV,$VP1_GebDat_HV,$VP1_Geschl_HV,
                        $VP1_EAR_HV,$VP2_Nachname_HV,$VP2_Vorname_HV,$VP2_GebDat_HV,$VP2_Geschl_HV,$VP2_EA_HV,$Tarif_HV,
                        $Targen_HV,$Abl_VTe_HV,$Abl_BzD_HV,$Abl_LDa_HV,$Rz_med_HV,$Rz_son_HV,$Rz_zus_HV,$RV_KZRG,$Tz_HV,$St_HV,
                        $Kl_HV,$VoVers_Sum_HV,$R_HV,$RV_ZZ,$ZuMMJJJJ_HV);

@ausgabe_HV = ( ";$RV_ZZ;$VSumme_Tod_HV_1;$VSumme_Erl_HV_1;$BtrBJahrVT_HV_1;$BtrSumRaba_HV_1",
   ";$Z_VB_HV_2;$VSumme_Tod_HV_2;$VSumme_Erl_HV_2;$BtrBJahrVT_HV_2;$BtrSumRaba_HV_2",
   ";$Z_VB_HV_3;$VSumme_Tod_HV_3;$VSumme_Erl_HV_3;$BtrBJahrVT_HV_3;$BtrSumRaba_HV_3",
   ";$Z_VB_HV_4;$VSumme_Tod_HV_4;$VSumme_Erl_HV_4;$BtrBJahrVT_HV_4;$BtrSumRaba_HV_4",
   ";$Z_VB_HV_5;$VSumme_Tod_HV_5;$VSumme_Erl_HV_5;$BtrBJahrVT_HV_5;$BtrSumRaba_HV_5",
   ";$Z_VB_HV_6;$VSumme_Tod_HV_6;$VSumme_Erl_HV_6;$BtrBJahrVT_HV_6;$BtrSumRaba_HV_6",
   ";$Z_VB_HV_7;$VSumme_Tod_HV_7;$VSumme_Erl_HV_7;$BtrBJahrVT_HV_7;$BtrSumRaba_HV_7",
   ";$Z_VB_HV_8;$VSumme_Tod_HV_8;$VSumme_Erl_HV_8;$BtrBJahrVT_HV_8;$BtrSumRaba_HV_8",
   ";$Z_VB_HV_9;$VSumme_Tod_HV_9;$VSumme_Erl_HV_9;$BtrBJahrVT_HV_9;$BtrSumRaba_HV_9",
   ";$Z_VB_HV10;$VSumme_Tod_HV10;$VSumme_Erl_HV10;$BtrBJahrVT_HV10;$BtrSumRaba_HV10");

if ($RV_ZZ gt 0 )
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[0]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_2 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[1]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_3 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[2]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_4 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[3]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_5 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[4]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_6 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[5]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_7 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[6]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_8 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[7]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_9 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[8]."\n";
  $outputCount++;
 }
 elsif ($Z_VB_HV_10 gt 0)
 {
  print OUT $ausgabe_i_HV;
  print OUT $ausgabe_HV[9]."\n";
  $outputCount++;
 }