Select Code to Download

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