for my $byte ( @bytes ) {
  # show as hex and use it
  my $dec = sprintf "%02x", $byte;
  # check it
  print $dec, "\n";
  # even calculating works:
  print "$dec+1=", ($dec+1), "\n";
}