my $var;
my @array = ('a', 1.1, \$var);

print @array;
print "\n@array";
print "\n", join "\n", @array;