#!/usr/bin/perl

use strict;
use warnings;
use open IN  => ':utf8';
use open OUT => ':utf8';
use Encode;
use Data::Dumper;

my $file1 = shift;
my %hash;

open( my $IN1, "<:encoding(utf8)", $file1 ) or die;
while (<$IN1>) 
{
    chomp;
    my ($video, $p) = split /\t/;
    push( @{$hash{$video}}, $p );
    #print "array of hash of $video <==== $p\n";
}
close $IN1;

foreach my $key ( keys %hash ) 
{
    print "$key: @{ $hash{$key} }\n"
}
print Dumper \%hash;