my @buffer = {}; # Create an empty buffer array
my $byte = "";

sub readSerialPort
{
     # $byte contains the incoming data from the other host on the serial line
     # The buffer ensures that all the data is stored in one location.
     # Read from the buffer and manually empty it after processing!
     
    # sleep 3;
     $byte=$port->input;
     if ($byte eq chr(02))
     {
        print "STX was found! " . $byte . "\n";
        do {
            push(@buffer, $byte);
        } while ($byte != chr(03));
        
        if ($byte eq chr(03)) {
          print "ETX was found! " . $byte . "\n";
          }
      }
}
print "\nContents of byte is " . $byte . "\n".
print "\nContents of buffer is " . @buffer . "\n".