Help for this page
my @chwhs = (<STDIN>);
my $chwhs = <STDIN>; chomp $chwhs; my @chwhs = split /\s+/, $chwhs;