One way to do this is to pass by reference. So, make the call like this

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

Then an assignment to "pictures" would look like.

$pictures = shift;
[download]

You would then iterate over the array like

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