#!/usr/bin/perl

use strict;

   my $line;
   my @words;
   my @liste;
   my $i;

   _schreibeWerte();

sub _schreibeWerte
{
   open(FILE, "<bla.txt")
   or die "cannot open bla.txt";

 while($line=<FILE>)
 {
     if($line =~ /\[Wertetabelle1\]/ ){ $line=_Wertetabelle();}
     if($line =~ /\[Wertetabelle2\]/ ){ $line=_Wertetabelle();}
  }
  close(FILE);
}

sub _Wertetabelle
{
   while($line=<FILE>)
   {
     if($line =~ /\[Zeile\]/)
     {
       for($i=0;$i<=50;$i++)
       {
         $line=<FILE>;
         ## Einlesen der Werte in den Array
         @words = split /\s+/,$line;
         push(@liste, $words[1]);
         
         if($line =~ /\[Zeile\]/ ) {last;} 
   print $line;
      }
       if($line =~ /\[Wertetabelle1\]/ ) {  last;}
       if($line =~ /\[Wertetabelle2\]/ ) {  last;}
     }
   }
     return $line;
}