UPDATE:
Actually, as long as he still passes by reference it's not a closure. Here's an example of what would make it a closure:

  my $ref_to_big_chunk;
  get_big_chunk(8675309);
  print "And the big data is: ";
  print $$ref_to_big_chunk;

  sub get_big_chunk
  {
    my $jenny_tel = $_[0];
    my $big_jenny = [ all work done here to make this huge ]
    $ref_to_big_chunk = \$big_jenny;
  }
[download]

I actually just wanted to provide another pointer in an potentially interesting direction.

That's why I didn't reply to the original question.
I wouldn't write it that way either.

Kay