my ($date, $time, $disk, $user) = @x[1,2,12,16];