Select Code to Download

$first_num=10.0095;
$last_num=72.0967;
$mem_first="77xptj52";

use vars qw($first_num $last_num $mem_first);

...
do "file1.pl";

print( "$first_num, $last_num, $mem_first\n" );

%everything = (
  first_num => 10.0095,
  last_num => 72.0967,
  mem_first => "77xptj52",
);

use vars qw( %everything );

...
  $everything{last_num},
  $everything{mem_first},
  ), "\n" );