my $ID = ...;
    my $query = ...;
    my $sth = $dbh -> prepare($query);
    $sth -> execute;
    my @row = $sth -> fetchrow_array;