my ($subdir, @keywords) = split;

##</code><code>##

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

##</code><code>##

my @array = split;
my $subdir   = $array[0];
my @keywords = @array[1..$#array];