#!/usr/bin/perl -w

open (FH, ">matrix.csv");
foreach $row (1 .. 100_000)
{
   print FH $row,"\t",2*$row,"\t",3*$row,"\t",4*$row,"\t",5*$row,"\n";
}
close(FH);
