%arrayname = ("key1" => "val1", "key2" => "val2");

print "Array(";
while (($key, $val) = each(%arrayname))
{
 print "\"$key\" => \"$val\",";
}
print ");";
