I had the idea that my code would deliver me an aoh. But doesn't seem to result into that. Can someone tell me what is going on.

Problem solved and an update.

to avoid a big screen-print the  print Dumper \@total_query_to_aoh; should be placed outside of the while-loop.

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;
use YAML;
use File::Slurp qw(read_file);

my $dbh = DBI->connect("dbi:SQLite:new.db")
  || die "Cannot connect: $DBI::errstr";
my $sql =
'SELECT ID, status, title, subtitle, text FROM articles'
  ;    # WHERE id=?'
my $sth = $dbh->prepare($sql);
$sth->execute();
my @row;
my @total_query_to_aoh;

while ( @row = $sth->fetchrow_array ) {

    push @total_query_to_aoh,
      {
        id       => $row[0],
        status   => $row[1],
        title    => $row[2],
        subtitle => $row[3],
        text     => $row[4],
      };
#    print Dumper @total_query_to_aoh;

}

print Dumper \@total_query_to_aoh;                            # UPDATE

$dbh->disconnect;
[download]