#!/usr/bin/perl
use Parallel::ForkManager;

@all_strings=('110110101000101111', 
              '110010101001011101', 
              '110110111001001110',
              '110011101001011100',
              '111010101001011100');

my $pm = new Parallel::ForkManager(4);
foreach $string (@all_strings)
{
  my $pid = $pm->start and next;
  print($string,"\n");
  $pm->finish;
}
$pm->wait_all_children;

##</code><code>##

#!/usr/bin/perl

@all_strings=('110110101000101111', 
              '110010101001011101', 
              '110110111001001110',
              '110011101001011100',
              '111010101001011100');

foreach $string (@all_strings)
{
  print($string,"\n");
}