use Tie::File;
tie my @adressen, 'Tie::File', 'adressen.db', recsep => "---\n"
	or die "tie adressen.db nicht moeglich: $!";
...