use strict;
use warnings;

my %uniqs;
while (<DATA>) {
    chomp;
    my @list = split /,/;
    my @sorted = sort {$a <=> $b} @list;
    $uniqs{ join ',', @sorted }++;
}
print "$_\n" for keys %uniqs;

__DATA__
1,2,4
1,2,3
4,2,1

##</code><code>##

1,2,4
1,2,3