print $_,
      ' contains ',
      "@{[map {@$_} @words{@{$matches{$_}}}]}",
      $/,
      $/ 
    for keys %matches;
__END__