aaa.txtに処理を書いてevalで実行するにはどうすればいいですか？

open (KK,"< aaa.txt") || &ERROR;
my@aa=<KK>;
close(KK);
$aa=join("",@aa);
eval"$aa";

これをもっと簡単に出来ませんか？(joinは消せませんか？)