> > my $kaunto = 0;
> > my $hoge_ref = \@hoge;
> > foreach my $item ( @{$hoge_ref} )
> > {
> >   my $kaunto_back = $kaunto;
> >   $kaunto = $kaunto_back + 1;
> > }
> > 大変だぜ
> これが実際に貴殿の仕事のソースに混じってたのかい

フフフ…
だとしたら貴殿はどう漏れを慰めてくれるよ？

参考：2002/10/30(水)02時30分27秒