Select Code to Download

use strict;
use warnings;
...
}

print "$_:\n   ", join ("\n   ", @{$hash{$_}}), "\n" for keys %hash;

mv89psg6zh4:
   A bird in a sink keeps getting under the running water from a fauce
+t.
...
   A bird is playing in tap water.
   A bird is bathing in the sink.
   A bird is taking a bath.