use List::MoreUtils qw(any);

push @{$vars->{uplinks}}, $conn 
  unless any { $conn eq $_ } @{$vars->{uplinks}};