foreach my $i (0..$#array)
{
  open(FH,"> temp$i") or die "open: $!";
  print FH $array[$i];
  close FH;
}