One more point about the OPed code: variable names like  $1file and  $2file are tres illegal: a user-code defined variable name must begin with an alpha. (Perl defines special variables like  $1 $@ $^W etc., but we all know that Perl is special!) (Actually, I believe there is a way around the alpha-first-character rule for user code, but that's another story.)