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