サブルーチンで読み込んだデータを配列に格納してメインに
戻しているのですが，値が入っていないようなんです．
サブルーチンの中でprintさせるとちゃんと値が入っているのですが。
どなたかご教授を。

@xx=&DatRead($setdir1,$file);
for $i ( 0 .. $#xx ) {
print "xx=\t [ @{$xx[$i]} ],\n";
}

sub DatRead{
local @xx;

open(list,"$fn")
while($line=<list>){
chomp($line); # 改行記号を削除
($dmy,@x)= split(/\s+/,$line); # 先頭にDMYを入れて読み込む
push @xx,[@x];
undef @x;
}

@xx;
close(list);
} # END OF SUB