my $date = join ' ',@f[0..2];