my @array = split;
my ($subdir, @keywords) = @array;