$data{$moji} = [ $num1, $num2 ];

これはどのような動きをしているんでしょうか？
変数名は気にせずに。