foreach my $key ( keys %hash ) 
{
    #print "$key: @{ $hash{$key} }\n"
    #print "$key: \n";
    for my $i (1..$#{$hash{$key}})
    {
        print $hash{$key}[0],"\t" ,$hash{$key}[$i], "\n";
    }
}


##</code><code>##

A bird iA bird is bathing in a sink. the running water from a faucet.
A bird iA bird is splashing around under a running faucet.m a faucet.
A bird iA bird is bathing in a sink. the running water from a faucet.
A bird iA bird is standing in a sink drinking water that is pouring out of the facet.
A bird iA faucet is running while a bird stands in the sink below.et.
A bird iA bird is playing in a sink with running water.from a faucet.
A bird iA bird is playing in tap water.e running water from a faucet.
A bird iA bird is bathing in the sink.he running water from a faucet.
A bird iA bird is taking a bath.nder the running water from a faucet.