#!/usr/bin/perl
$rec='';
$paq='';
while(<>){ 
   chomp;
   @entrada=split(/:/,$_);
    if ($entrada[0] eq $rec and $entada[1] ne $paq){print "$entrada[0] - $entrada[1], $paq\n"}
    $rec=$entrada[0];
   $paq=$entrada[1];
}