for (my $i = 3; $i >= 0; $i--) {
  close($handles[$i]);
}