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

use strict;

do "file1.pl";

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