my @data = ( 
['Mar1','Mar2','Mar3','Apr1','Apr2','Apr3','May1','May2','May3],
[1,0,0,2,0,0,4,0,0], 
[2,0,0,1,0,0,5,0,0], 
[0,3,0,0,4,0,0,6,0], 
[0,4,0,0,3,0,0,7,0],
[0,0,5,0,0,6,0,0,1],
[0,0,6,0,0,5,0,0,2],
);