Select Code to Download

#!/usr/local/bin/perl5_8
use strict;
...
#do other stuff using these called-in variables
#without having to declare "my $one" and "my $two" again
$fred = $one . $two;    #or some such silliness

sub call_variables {
#pick up a string I've passed from previous program via 'spec_vars'
...
my $five  = $variables_array[4];
return ($one, $two, $three, $four, $five);
}