my $row = 0;
while (my $tmp = $st->fetchrow_hashref()){
    for my $key (keys %$tmp){
        $host_info_REF->{$row}->{$key} = $tmp->{$key};
    }
    $row++;
}