sub r{
#23456789_123456789_1
my%e;grep!$e{$_}++,@_
}