Help for this page

Select Code to Download

Select or download this

while ( my $col  = shift @array) {
     $date{$col} = [ shift @array,   shift @array];
}