for my $handle (@in_fh) {
	while (<$handle> ) {
		print ;
	}
}