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 (<IN1>) {
    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;