Help for this page

Select Code to Download


  1. or download this
    my %h;
my @toBeMoved = sort {$a <=> $b} grep {++$h{$_} == 1} @toBeMoved;