#!/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;