新手问题

QUOTE:

#!d:/perl/bin/perl.exe
use 5.10.0;
@a=(1..4,2..6,3..10);
foreach(@a){
        my %num;
        if (++($num{$_}) ==1){
                push @b,$_;
        }else{
                next;
        }       
}
say @b;


@b=grep {++$num{$_}==1} (1..4,2..6,3..10);
say @b;