print $hash{$_},',' for @word;
print '0,' for 5 - @word;
print "\n";