use strict;
use warnings;
my (@array);
while (<>) {
  $array[$2] = 1 if ($_ =~ m/(.+)(\d+)$/)
}
print defined $_ ? $_ . "\n" : "\n" for @array[1..$#array];