my $X = tie my %hash, 'DB_File', $filename;
my ($key, $value);
for (
    my $status = $X->seq($key, $value, R_FIRST);
    $status == 0;
    $status = $X->seq($key, $value, R_NEXT)
) {
    ...
}