while (<$fh>){ print $merge $_;}