>>861を

> my $value1 = $self->param('name1');
> my $value2 = $self->param('name2');
> my $value3 = $self->param('name3');
>
> my %a = (
> 　　key1 => $value1
> 　　key2 => $value2.
> 　　key3 => $value3.
> );

このように書きなおしてはいけない言語って
Perlぐらいだと思う。

my %a = (
　　key1 => $self->param('name1'),
　　key2 => $self->param('name2'),
　　key3 => $self->param('name3'),
);