Select Code to Download

# [at the top, before subroutine definitions and code]
my %my_vars;
...
  my $spec_vars = param('spec_vars');
  @my_vars{qw/one two three four five/} = split /~/, $spec_vars;
}

# [at the top, before subroutine definitions and code]
my ($one, $two, $three, $four, $five);
...
  ($one, $two, $three, $four, $five) = split /~/, $spec_vars;
}