sub uniq_Roy { my %x; grep {!$x{$_}++} @_ }