my @array = qw(daemon=7500 port=tcp resil=60);

foreach my $variable (@array) {
   print "$variable\n";
  # do something to set the variable
  ($var, $value) = split/=/,$variable;
  now what?
} 

##</code><code>##

 for $var (keys %$VARS) {
        $ENV{$var} = $$VARS{$var};
 }