正しい無限ループの書き方 Perl版

http://d.hatena.ne.jp/nowokay/20070710 Java 正しい無限ループの書き方 より

Perlで実装してみた。

utf8環境に限って言えば、変数名に全角文字も使える…が、
普通に変数を使おうとすると sigil ($) が邪魔でしょうがない。
for (;$д;){ ... }
ではイマイチ。
で、use constantしてみた。(sub д {1}　でもOK)

#!/usr/bin/perl 
use strict; 
use warnings;
use Perl6::Say;
use constant; 
use utf8;


use constant {
	д => 1,
	ω => 1,
	ェ => 1,
	TдT => 1,
	泣 => 0,
	ｳﾜｧｰｰﾝ => 1,
};

for (;д;){
	say "でれません";
}

for(;ω;){
	say "ぬけれません";
}

foreach( ;(ェ); ){
	say "終わりません";
}

while (TдT){
	say "帰れません";
}

until (泣){
	say "泣いても無駄です";
}

say "もう実行しねぇよ" while ｳﾜｧｰｰﾝ;

#定数扱いなので、後で変更が出来ないです

#それよりも、普段使ってる $_-> の方が顔文字に見えて仕方ない。

追記: http://app.blog.livedoor.jp/dankogai/tb.cgi/50869782 danさんの所の方が無駄なくスッキリでした orz