opendir (DIR, "$memberinfo");
@file = grep { /.infotmp/ } readdir(DIR);
close (DIR);
$new_files = push(@file);

##</code><code>##

$new_files = @{[<$memberinfo/*\.infotmp*>]};