escaping arrays in perl dbi

Hello All,
I am trying to figure out how I need to change the string below in
order to do an insert into my table using perl dbi. perl seems to choke
on the curly brackets. Any help would be appriciated.
Thanks.


$dbh->do("update basket set f_order ='{"apple",0}' where cap ='I'");


-- 
Vincent Stoessel
Linux Systems Developer
vincent xaymaca.com