モジュールでファイルの読み書きをさせているのですが
使っているファイルハンドルが同じなもので
同時に2つのファイルを書き込むことが出来ません。
複数のファイルを扱える様にするにはどうしたら
良いのか教えてください、お願いします。
ちなみにIO::Fileを使ってもFHは同じなのかダメでした。

Sample.pm
package Sample;
sub new {
　$class = shift; $file = shift; $self = {LIST=>[]};
　bress $self,$class; open(FH,'+<'.$file);
　push($self->{'LIST'},$_) while <FH>; return $self;
}
sub sample {
　my $self = shift;
　unshift(@{$self->{'LIST'}},pop(@{$self->{'LIST'}}));
}
sub regist {
　my $self = shift; truncate(FH,0); seek(FH,0,0);
　print FH $_ for @{$self->{'LIST'}}; close(FH);
}

use Sample;
$s1 = new Sample('./s1.dat'); $s2 = new Sample('./s2.dat');
$s1->sample(); $s2->sample();
$s1->regist(); $s2->regist();