sub uniq{ my %x; @x{@_} = (); keys %x } my @uniq_foo = uniq @foo; my @uniq_bar = uniq @bar; my @uniq_baz = uniq @baz;