#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;


my @spalten_filter = qw(
zeit_tag
zeit_jahrestag
summe_E_wr__0
perf__0
mittel_tag_T_m__0
mittel_P_sg__0
mittel_G_m__0);

my @zeile_file=qw(
2006-01-03
86400
3
0.327581
1
1
1
0.0381944
1
1
1
1
1
1167.5
0.687204
6.853344
1384.4688
476.688
0.843284
0.0824089
0.0977238 );

my @filter=qw(
0
2
13
14
15
16
17);

my $index_zeit_summe_intervall = 1;

my $count=0;
foreach (@spalten_filter) {
  if ($spalten_filter[$count] =~ s/^mittel_/summe_/) {
    $zeile_file[$filter[$count]]=$zeile_file[$filter[$count]]*($zeile_file[$index_zeit_summe_intervall]/3600);
  }
  $count++;
}

$VAR1 = [
          '2006-01-03',
          '86400',
          '3',
          '0.327581',
          '1',
          '1',
          '1',
          '0.0381944',
          '1',
          '1',
          '1',
          '1',
          '1',
          '1167.5',
          '0.687204',
          '164.480256',
          '33227.2512',
          '11440.512',
          '0.843284',
          '0.0824089',
          '0.0977238'
        ];