sub call_variables {
#pick up a string I've passed from previous program via 'spec_vars'
my $spec_vars = param('spec_vars');
   return (split /~/, $spec_vars)[0,1,2,3,4 .. 25];
}