Select Code to Download

   $lines[0]       = [ 3,2,1 ];

   print    $lines[0][ 3,2,1 ];

  print scalar(4,5);
jaybonci@starlite:~/perl/pm$ ./array.pl 
Useless use of a constant in void context at ./array.pl line 6.
5jaybonci@starlite:~/perl/pm$