&make_barn(\@pictures) if ($cumulative >= 5000000);

##</code><code>##

$pictures = shift; 

##</code><code>##

foreach (@{ $pictures })
{
   #do stuff with $_
}