4.941 32.586 -1.772
15.354 22.823 10.556
-0.495 12.345 98.234
...


$block_size = 1000;
$counter = 0;
%small_hash = ();
foreach @triplet of the 100 points{
     $counter++;
     my @matrix = ortho(@triplet);
     foreach $point in the 100 points{
           my $key = binning(@matrix * $point);
           push @{$small_hash{$key}},@matrix;
     }
     #binning causes many points to fall in the same grid,
     #thus the array of values (matrices) for each key
     if($counter % $block_size == 0){
           write out %small_hash; 
           %small_hash = (); #frees the memory
     }
     
}

# now merging small hash files
foreach $key (sort keys %master_hash){#keys for master_hash stored
     loop thru all small files{
          while(<FILE>){
               if($_ =~ /^$key/){
                    write values to the master output file;
                    last;
               }#if
          }#while
     }#go thru files
}