for my $idx (0..$#{$out->[0]}) {
    ...prepare your insert statmenet here, inside the loop...
    $insert->execute($out[0]->[$idx],$out[1]->[$idx],$out[2]->[$idx],$out[3]->[$idx])
}