#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11136191
use warnings;

for my $n (0, 2, 20, 200, 2000, 20000, 200000)
  {
  my @bytes = reverse sprintf('%016X', $n) =~ s/^(?:00)*\B//r =~ /../g;
  print "$n => @bytes\n";
  }

##</code><code>##

0 => 00
2 => 02
20 => 14
200 => C8
2000 => D0 07
20000 => 20 4E
200000 => 40 0D 03