my $reference = $buffer;
print $reference;