use strict;
use warnings;
use Data::Dumper;

#.....

my $sth = $dbh->prepare("select XMLRECORD from F_COMPANY") or
            die "Couldnt prepare statement: " . $dbh->errstr;

$sth->execute();

my $array_ref =  $sth->fetchall_arrayref();

print Dumper $array_ref;