#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;

use ....;

my $i = "....";
my $queryextstatus = "SELECT value_text FROM dynamic_field_value WHERE object_id = $i AND field_id = 80";

my $sth = $dbh->prepare($queryextstatus);
$sth->execute();
while ( @row = $sth->fetchrow_array ){
    print Dumper(\@row);
}