TMTTWTDI (There's More Than Two Ways To Do It), this is Perl after all.

<pedantic>You forgot about $sth->execute($$ref[0], $$ref[1], $$ref[2], $$ref[3]); and what about ...</pedantic>