#!/usr/bin/perl

use strict;
use warnings;

sub number2hexString {
        return my $output .= join ' ', map { join ' ', sprintf('%016X', $_) =~ s/^0{8}(0{4}(00)?)?//r =~ /../g } @_;
}

print number2hexString(2,20,200,2000,20000,200000)."\n";