my ($name, $time) = (split /\s+/, $file)[1,9];