my $count=map $_, split;