Select Code to Download

#!/usr/bin/perl

...
foreach (@newarr){
print "$_\n";
}

$hold=@arr;
foreach (0...$hold){
  push(@newarr, splice(@arr,int(rand(@arr)),1));
}