use List::MoreUtils qw( uniq );
@foo = uniq @bar;