$ perl 1099646.pl
1,2,3
ARRAY(0x80071c80)
$