Help for this page
#perl use strict; ... 4,2013,Design/Process,42 5,2013,Design/Process,30 1,2014,Design/Process,30
for my $pd (sort {$a<=>$b} keys %x_data){ push @x_legend,$period[$pd];