use vars qw( %everything );

use strict;

do "file3.pl";

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