my $y;
my @database = ( 1..1000);

for( my $x = 0 ; $x<100;$x++)
{
 if(fork)
 {
    @database = reverse @database;
    
    $y = 'A'x1000;
    system "ping -n 1 $x.$x.$x.$x";
    exit(0);
 }
}

##</code><code>##


<code>
my $y;
my @database = reverse (1..1000);

$y = 'A'x1000;

for( my $x = 0 ; $x<100;$x++)
{
 if(fork)
 {
    system "ping -n 1 $x.$x.$x.$x";
    exit(0);
 }
}