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.