Well, you're just defending it because it happens to contain your initials =P

Anyway, I'd rename the scalar to $input as that makes sense to me. That is just my opinion, though. There are other small problems such as @wwn = join (":", @wwn); (empty an array and assign a scalar value into an array's first slot) -- that is, use a previously-defined array as a scalar variable -- but I'm not to split hairs over it as the OP did not ask to review his code.