# Prepare a handle to an insert statement:
$app_insert = $dbh->prepare("INSERT .....blah, blah");

# Fetch each row of data from results
while (my $row = shift @$api_results) {
    # Tell the insert statement to insert the data
    $app_insert->execute(@$row);
}
print "Done inserting\n";