always use strict and -w. Is there a reason you are not? Perhaps I am misunderstanding what you might need (say you are using -w), have a look at Tie::Scalar::Timeout (also hash and array), more of an OO approach.