#!/usr/bin/perl
use warnings;
use strict;

my ($dic1,$dic2) = @ARGV;

die "One of the files was not found\n" unless -f $dic1 and -f $dic;

$dic1 = do $dic1;
$dic2 = do $dic2;

for my $key (keys %$dic2) {
  for my $t (keys %{$dic2->{$key}{trans}}) {
    print "$key: $t\n" unless exists $dic1->{$key} && exists $dic1->{$key}{trans}{$t};
  }
}