use Data::JavaScript;
my @array = ( 1, 2, "f\no\no\n\bar" );

print $_,$/ for jsdump( my_array => \@array);
__DATA__
var my_array = new Array;
my_array[0] = 1;
my_array[1] = 2;
my_array[2] = 'f\012o\012o\012\010ar';



##</code><code>##

<a href="javascript:alert('f\012o\012o\012\010ar');">
 alert('f\012o\012o\012\010ar')
</a>