#!/usr/bin/perl
use threads;
use threads::shared;

my @a : shared;

for (1..10) { 
   sleep 1;
   threads->new(\&foo); 
   }

sleep 1;
system "grep VmSize /proc/$$/status";
<>;

sub foo {
   for (1..10) { push @a, " " x 1e6; }
   print @a . " elements in \@a\n";
}