Array
(
    [parameter] => testing
    [key] => Test1
    [Referrer] => HIDDEN
    [Time] => TRUE
)
i like bitches0
Array
(
    [parameter] => neva
    [key] => megakey
    [Referrer] => mozilla
    [Time] => 2007-09
)
i hate morons8

#!/usr/bin/perl

use strict;
use warnings;

$\ = "\n";
my $str = <<STR;
Array
(
    [parameter] => testing
    [key] => Test1
    [Referrer] => HIDDEN
    [Time] => TRUE
)
i like bitches0
Array
(
    [parameter] => neva
    [key] => megakey
    [Referrer] => mozilla
    [Time] => 2007-09
)
i hate morons8
STR

while ($str =~ /Array\s*\(\s*\[parameter\]\s*=>\s*(.+)\n\s*\[key\]\s*=>\s*(.+)\n\s*\[Referrer\]\s*=>\s*(.+)\n\s*\[Time\]\s*=>\s*(.+)\n\s*\)\s*(.+?)(\d+)\n|\Z/gm) {
  my ($parameter, $key, $Referrer, $Time, $first_par, $second_par) = ($1, $2, $3, $4, $5, $6);
  last unless defined $key;
  print join ', ' => $parameter, $key, $Referrer, $Time, $first_par, $second_par;
}

... \s*(.*?)(\d*)\n|\Z/gm

#!/usr/bin/perl
use threads;
use threads::shared;
my $n : shared;

$a = gets();
print $a . "\n";

sub gets {
   $thr = 10;
   $n = 0; 
   for(0..$thr) {
       $trl[$_] = threads->create(\&gets1);
   }
   for(0..$thr) {
       $trl[$_]->join;
   }
   sub gets1 {
      $| = 1;
      $ii = "";
      while ($n < 10) {
            { lock($n);
            $n++; }
            $ii .= $n; 
            print $ii . "\n";
      }
      return $ii;
   }
}

$res = $trl[$_]->join;