Select Code to Download

print Dumper %matrix;
print Dumper @dates;
...
  print "@dates[$ii], $matrix{youn}[$ii],  $matrix{anch}[$ii], $matrix
+{baxt}[$ii], $matrix{chey}[$ii], $matrix{aggr}[$ii]\n";

}

$VAR1 = {
          'ANCHSN15K01' => [
...
18 Mar 07, ,  , , ,
19 Mar 07, ,  , , ,
20 Mar 07, ,  , , ,

tie my @lines, 'Tie::File', $data;
my %matrix = ();
...
  }
  $matrix{$tmp[0]} = [@tmp[2..$#tmp]];
}