use strict;
use warnings;
my %hash=();
my $re = "iowq john stepy andy anne alic bert stepy anne bert andy step alic andy";
my @names = split(/\s+/,$re);
foreach(@names)
	{
	$hash{$_}++;
	}
foreach(keys %hash)
	{
	print "key: $_  value: $hash{$_} \n";	
	}