Perlで強引にprivate変数を作る