my @dates = (20070410, 20070415, 20070417, 20070418);
my @quan  = (10, 20, 15, 42);
my $table = new Data::Table( [ [@dates], [@quan] ], [ 'Dates', 'Values' ], 1 );