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

##</code><code>##

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

use strict;

do "file1.pl";

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

##</code><code>##

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

##</code><code>##

use vars qw( %everything );

use strict;

do "file3.pl";

print( join( ", ",
  $everything{first_num},
  $everything{last_num},
  $everything{mem_first},
  ), "\n" );