Select Code to Download

use Data::Dumper;
my (@array, $scalar);
($scalar, @array[0..3]) = qw/a b c d/;
print Dumper \@array;

$VAR1 = [
          'b',
          'c',
          'd',
          undef
        ];