my $fullsizenumber = 1027;
   my @bytesizechunk = splitintobytes($fullsizenumber);
   sub splitintobytes {
      my ($num) = @_;
      warn "Not numeric: $num" unless $num eq ($num+0);
      my @result;
      while ($num >= 256) {
         push @result, $num % 256;
         $num -= $result[-1];
         $num /= 256;
      }
      return (@result, $num);
   }