my ($generated_array_ref, $generated_var) = Generator();

Second_sub_receives_array_ref( $generated_array_ref, $generated_var);

sub Generator{
  my $localvar=33;
  return ([0..50], # Generated array ref
           $localvar);
}

sub Second_sub_receives_array_ref{
  my ($rcvd_arrayref, $rcvd_var) = @_;
  for (@$rcvd_arrayref){
   # array element is available as $_
  }
}
[download]