print Dumper %matrix;
print Dumper @dates;

for my $ii (0..$#dates - 1)
{
  print "@dates[$ii], $matrix{youn}[$ii],  $matrix{anch}[$ii], $matrix{baxt}[$ii], $matrix{chey}[$ii], $matrix{aggr}[$ii]\n";

}