#!/usr/bin/perl -w
use strict;

#unique and remove bin

my %uniq;
while (<>) {
   $uniq{$_} = 1;
}
 
foreach (keys %uniq) {
   s/^\d+\s+//;
   print;
}
exit;
