use 5.010;
sub uniq {
    return keys %{ {map { $_ => 1 } @_} };
}

say for uniq qw/ foo bar foo baz bip foo /;