#!/usr/bin/perl
use DB_File;
use strict;
use warnings;

my $db_file="data.db";

# @array an das Modul "DB_File" binden
tie( my @data, "DB_File", $db_file, O_RDWR|O_CREAT, 0666, $DB_RECNO) or die "ERROR open $db_file: $!\n";

# erster Durchlauf
# Array befüllen
@data=qw( nur ein kleiner Test ) if(!@data);

# Ausgabe des Arrays
print join(" ",@data)."\n";

# Array zu Testzwecken rotieren
push(@data,shift(@data));