for my $file (@filelist) {
	open my $fh01, "<", $file;
	/^(\S+)\s/ and defined $records{$1} and print while <$fh01>;
	close $fh01;
}