my @Unique;
for (my $i = 0; $i != @Arr; $i++){
  my $Val = $Arr[$i];
  my $Found = 0;
  for (my $j = 0; $j != @Unique; $j++){
    if ($Val == $Unique[$j]){
      $Found = 1;
      last;
    }
  }
  if (not $Found){
    push @Unique, $Val;
  }
}
print 'Unique values are: ', join ', ', @Unique;