#! /usr/bin/perl 
use strict;
use warnings;
use 5.024;

use bigint;

### ACHTUNG: Wechsel von < nach > zur schöneren Darstellung des Ergebnis
my @array = unpack( "C16", pack( "Q>2", 0xfffefdfcfbfaf9f8, 0xf7f6f5f4f3f2f1f0 ) );

print( join( ", ", @array ), "\n" ); # 255, 254, 253, 252, 251, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 240