my $fd = shift @{$_};
my $child = shift @{$_};

##</code><code>##

my $fd = $_->[0];
my $child = $_->[1];