私の考えでは、例えば

if ($a = 空であることを示すなにか){
print("数値が正しくありません。データは保存されません。");
}
else{
print("数値は正常です。保存されました。");

open (OUT,">>data/a.txt");
print OUT $a;
close (OUT);

}

といった感じの形にすればいいのでは？と考えたのですが・・。