That works in the assignment operator too:

use Data::Dumper;
 
@a=(1..10);
 
$b="@a";
 
print Dumper(\@a,$b);
print "Array: @a\n";
print "Scalar: $b\n";


## OUTPUT
########################
$VAR1 = [
          1,
          2,
          3,
          4,
          5,
          6,
          7,
          8,
          9,
          10
        ];
$VAR2 = '1 2 3 4 5 6 7 8 9 10';
Array: 1 2 3 4 5 6 7 8 9 10
Scalar: 1 2 3 4 5 6 7 8 9 10
[download]