〜色々略〜
$dat = kakou($dat, $in);
sub kakou{
my $dat = shift;
my $in = shift;
〜$inを使って$datを加工する。$inが空なら何もしない〜
return $dat;
}

$datが巨大な場合、$inが空かどうかの判定は&kakouを呼ぶ前に毎回行った方が良いのでしょうか？
こういった場合はどういう書き方が最適なのでしょう？