Select Code to Download

sub print_in_n_cols {
    my ($count, @items) = @_;
...
        print "\n";
    }
}

if (@dupes <= 10){
    print_in_n_cols(1, @dupes);
} elsif (@dupes <= 20){
    print_in_n_cols(2, @dupes);
} ...