##</code><code>##

my %seen;
while (chomp(my $input = <STDIN>)) {
    exit unless $input;
    $seen{$input}++;
    warn "you already issued $input\n" if $seen{$input} > 1;
    print "issued: ", join(', ', sort keys %seen ) ,$/;
}