my $order = { col_one => 1, col_two => 2 };
my $sth = $dbh->prepare("SELECT col_one,col_two FROM table");
$sth->execute();

my $row = [$order, $sth->fetchrow_array()];
print "<LI>This is the data for col_one: $row->{col_one}</LI>";