mv89psg6zh4 A bird in a sink keeps getting under the running water from a faucet. mv89psg6zh4 A bird is bathing in a sink. mv89psg6zh4 A bird is splashing around under a running faucet. mv89psg6zh4 A bird is bathing in a sink. mv89psg6zh4 A bird is standing in a sink drinking water that is pouring out of the facet. mv89psg6zh4 A faucet is running while a bird stands in the sink below. mv89psg6zh4 A bird is playing in a sink with running water. mv89psg6zh4 A bird is playing in tap water. mv89psg6zh4 A bird is bathing in the sink. mv89psg6zh4 A bird is taking a bath. #### use strict; use warnings; use open IN => ':utf8'; use open OUT => ':utf8'; use Encode; my $file1 = shift; my (%hash,$key); open( IN1, "<:encoding(utf8)", $file1 ); while () { chomp; my ($video, $p) = split /\t/; chomp ($video, $p); push( @{$hash{$video}}, $p ); #print "array of hash of $video <==== $p\n"; } foreach $key ( keys %hash ) { print "$key: @{ $hash{$key} }\n" } close IN1; #### A bird is taking a bath. sink..h running water.sink below.g out of the facet.cet.