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