if(index($row,"<mail>") != -1 ){
                my @tilo; my $t=0;
                my $mrow = <>;
                while (index($mrow, "</mail>") == -1){
                        $tilo[$t] = $mrow;
                        chop($tilo[$t]);
                        $t++;
                        $mrow = <>;
                }
                for($ii=0; $ii<=$#data; $ii++){
#               my $ii=0;
#               while($ii <= $#data){
#               foreach(@data){
        my @tilo2 = @tilo;
                        foreach(@tilo){
                                for($t=0; $t<=$#Key; $t++){
                                        $_ =~ s/\[$Key[$t]\]/$data[$ii]{$Key[$t]}/g;
                                }
                                print $_;
                                print "\n";
                @tilo = @tilo2;
                        }
                        print "---\n";
                }
        }