Как тихо в категории Perl... Словно в Эдемском саду. А я ведь в прошлом даже умел калякать на этом языке... Печаль?

 #!/usr/bin/perl -W 
@arr = qw(5 8 4 3 9 5 1 6 3 5 2 8 7 4 5 3 0 5 6 6); 
@b = qw(); 
print @arr; 
for ($i = 0; $i < @arr; $i++){ 
for ($j = 0; $j < @arr; $j++){ 
next if $i == $j; 
if ($arr[$i] == $arr[$j]) { 
push @b, $arr[$i]; 
$n = $arr[$i]; 
} 
for ($k = 0; $k < @arr; $k++) { 
if ($arr[$k] == $n) { 
splice @arr, $k, 1; 
} 
} 
} 
} 
print "\n"; 
print "Not repeat"; 
print "\n"; 
print @arr; 
print "\n"; 
print "Repeat"; 
print "\n"; 
print @b; 
_______ 
58439516352874530566 
Not repeat 
9127 
Repeat 
58364