my %list_params = (
                                listnum     => $listnum,
                                address     => $address,
                                city        => $city,
                                state       => $state,
                                zip         => $zip,
                                tot_bed     => $tot_bed,
                                tot_bath    => $tot_bath,
                                tot_sqft    => $tot_sqft,
                                home_style  => $home_style,
                                home_type   => $home_type,
                                sch_element => $sch_element,
                                sch_intermed=> $sch_intermed,
                                sch_highsch => $sch_highsch,
                                price       => $price,
                                photo       => $photos[0][2],
                                acres       => $acres
                                );

print Dumper(\%list_params);
$addlisting = Table::Listings->find_or_create(\%list_params);