--,--,--,--,1.280000e+2,9.930000e+0
--,--,--,--,1.920000e+2,9.950000e+0
--,--,--,--,2.560000e+2,1.013000e+1
--,--,--,--,2.000000e+0,4.370000e+0
--,--,--,--,4.000000e+0,5.300000e+0
--,--,--,--,8.000000e+0,6.590000e+0
--,--,--,--,1.600000e+1,7.830000e+0
--,--,--,--,2.400000e+1,8.710000e+0
--,--,--,--,3.200000e+1,9.160000e+0
--,--,--,--,6.400000e+1,9.510000e+0
--,2.000000e+0,6.500000e+0,--,--,--
--,2.000000e+0,6.450000e+0,--,--,--
--,4.000000e+0,6.650000e+0,--,--,--
--,4.000000e+0,6.570000e+0,--,--,--
--,8.000000e+0,6.550000e+0,--,--,--
--,8.000000e+0,6.600000e+0,--,--,--
--,1.600000e+1,6.570000e+0,--,--,--
--,1.600000e+1,6.570000e+0,--,--,--
--,2.400000e+1,6.650000e+0,--,--,--
--,2.400000e+1,6.680000e+0,--,--,--
--,2.400000e+1,6.640000e+0,--,--,--
--,3.200000e+1,6.720000e+0,--,--,--

##</code><code>##

2.000000e+0,4.370000e+0,2.000000e+0,6.500000e+0
4.000000e+0,5.300000e+0,4.000000e+0,6.650000e+0
8.000000e+0,6.590000e+0,8.000000e+0,6.550000e+0
1.600000e+1,7.830000e+0,1.600000e+1,6.570000e+0
2.400000e+1,8.710000e+0,2.400000e+1,6.650000e+0
3.200000e+1,9.160000e+0,3.200000e+1,6.720000e+0
1.280000e+2,9.930000e+0,--,--
1.920000e+2,9.950000e+0,--,--
2.560000e+2,1.013000e+1,--,--
6.400000e+1,9.510000e+0,--,--
--,--,2.000000e+0,6.450000e+0
--,--,4.000000e+0,6.570000e+0
--,--,8.000000e+0,6.600000e+0
--,--,1.600000e+1,6.570000e+0
--,--,2.400000e+1,6.680000e+0
--,--,3.200000e+1,6.720000e+0

##</code><code>##

#!/usr/bin/perl -w

use strict;
my $file = "< SqlResults_full";
my @leftarray;
my @rightarray;
my @temp;
my @left;
my @right;
my $j = 0;
my $k = 0;

open(DATA, $file) or die "Can\'t open " . $file . " for output : $!";

while(<DATA>){
        if (/^--,.*,--,--,--$/){
                chomp;
                my $leftline = $_;
                my @lefttemp = (split/,/, $leftline);
                my $leftcut =  $lefttemp[0] . ", " . $lefttemp[1] . ", " . $lefttemp[2];
                push(@leftarray, $leftcut);
        }
        elsif (/^--,--,--,--,.*$/){
                chomp;
                my $rightline = $_;
                my @righttemp = (split/,/, $rightline);
                my $rightcut =  $righttemp[3] . ", " . $righttemp[4] . ", " . $righttemp[5];
                push(@rightarray, $rightcut);
        }
}

my $leftsize = @leftarray;
print "Left side is " . $leftsize . "\n";
print "Right side is ". $rightsize . "\n";

for (my $rightcount=0;$rightcount < $rightsize;$rightcount++){

   my @right = split (/,/, $rightarray[$rightcount]);
   for (my $leftcount=0;$leftcount < $leftsize;$leftcount++){
        my @left = split (/,/, $leftarray[$leftcount]);

      if ($left[1] eq $right[1]){
        print $leftarray[$leftcount] . ", " . $rightarray[$rightcount]. "\n";
        splice(@rightarray, $rightcount, 1);
        $rightcount--;
        $rightsize--;
        splice(@leftarray, $leftcount, 1);
        $leftcount--;
        $leftsize--;
      }#if
   }#while
   print "\n";
}#while