or !@F;

##</code><code>##

say join ( "^", $_, @{ $h{$_} } {@w} ) for sort keys %h'