my $time = rcols "testdata.txt";
my $tsearch = $time -> dummy;
print $tsearch,"\n";