My suggestion is to use hash:

my %already_selected;

......
unless ( $already_selected{$find} ) {
    $already_selected{$find}++;
    #this number is selecting first time
    ....
}
[download]

And of course don't use splice if you don't want destroy original array.