@test = grep { $X{$_}} 
map { defined $X{$_} or ($X{$_} += 1),$_ } @test;