for my $parent (reverse 0..4){
  print "$parent\n";
}