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