my @newarray;
foreach my $i (@arrayindex) {
   push @newarray,$array[$i];
}