#!/usr/bin/perl -w
# only1.pl
while (<STDIN>) {
	@in = split(/\s+/);
	if (defined($array{$in[0]})) {
		print "dup $array{$in[0]} $_";
	} else {
		$array{$in[0]} = $in[1];
		print $_;
	}
}