use IO::File;
use Tie::File;

my $fh = IO::File->new( 'adressen.db',"+>:encoding(UTF-8)" );
tie my @adressen, 'Tie::File', $fh, recsep => "---\n" or ...;