my $chwhs = ; chomp $chwhs; my @chwhs = split /\s+/, $chwhs;