Select Code to Download

my @buffer = {}; # Create an empty buffer array
my $byte = "";
...
}
print "\nContents of byte is " . $byte . "\n".
print "\nContents of buffer is " . @buffer . "\n".

Contents of buffer is 1
1
Contents of byte is 24###