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