my $C = shift ; my @others = grep $_ ne $C, @_;