before:
Xarr=[1..3];
print "@Xarr";

after:
$arr=[1..3];
print "@$arr";

eval:
1 2 3