open (OUTPUTFILE, '>', $position_output_path) or die "Could not open ...";

##</code><code>##

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

print @array;
print "\n@array";
print "\n", join "\n", @array;
##</code><code>##

a1.1SCALAR(0x182f68c)
a 1.1 SCALAR(0x182f68c)
a
1.1
SCALAR(0x182f68c)