I have done eval `foo.pl` in the past, then you have perl print out key value pairs.

foo.pl
#!perl
%foo = (a => 1, b => 2);
for(keys %foo) {
  print "$_=$foo{$_}\n";
}
[download]

Not really tested, but you get the idea... echo $b in the script will echo 2, very handy