モダンPerlでよければ
undefのとき123を代入する方法がある。

だがモダンPerlの話をすると
オールドパーラーがやけどするのでｗ