for(my $i=2;$i<table->last_record;$i++)
my @data = $table->get_record($i,"Date");