【夏の陣】実況を『根絶』する方法の考察・実験 7【お止め組。】

このような　サブルーチンになってます。
五十音ほぼでるように改良希望。

sub A2Hira
{
my $moto = $_[0];
my $lll = length($moto);
my $viptmp;

for(1..$lll)
{
$viptmp .= pack("C2",0x82,0x9f+ord(substr($moto , $_-1, 1))%83);
}
return $viptmp;
}

うぎゃっ