Select Code to Download

push(@{${$key}[0]},1,33);    
push(@{${$key}[0]},22,11);    
push(@{${$key}[1]},2,5);    
push(@{${$key}[2]},3,4);

#!/usr/bin/perl
use strict;
...
$chart->plot( $days{$c} );

MainLoop;