my @array = ( 1, 2 );
my $a_ref = [ 3, 4 ];

print "@array\n$a_ref\n";