Select Code to Download

use strict; use warnings;

my @array1 = ( 1 .. 3 );
...
  print @$ref1;
  print @$ref2;
}