>>351
解決しました！ありがとうございます！
すみませんがもうひとつ質問させてください。

package Test;
sub new
{
　my $this=shift;

　my @list=(9,8,7);
　my $test={
　　"list"　=> \@list
　};
　bless $test,$this;

　return $test;
}

sub set
{
　my $this=shift;

　# @$this->{list}=localtime(); #←だめぽ
　my @t=localtime();
　$this->{list}=\@t;
}

set っていう関数の中で list の中身を localtime に入れ替えたかったのですが
「だめぽ」の行だと「Not an ARRAY reference」と言われ失敗したので、
その下の2行にしたらうまくいきました。
配列をまるごと入れ替える場合はこうやって2行にするしか方法がないのでしょうか。
もうちょっとスマートな定番の方法があったら教えてください。