use strict;
use warnings;
use feature qw(say);
use List::Util qw(shuffle);
use Data::Compare qw(Compare);

sub serialize {
    my $bv;
    vec($bv,$_ - 1,1) = 1 for @_;
    return $bv;
}

sub deserialize {
    return grep {vec($_[0], $_-1, 1)} 1 .. 90;
}

for (1..10) {
    my @list = (shuffle(1..90))[0..79];

    my $vector = serialize(@list);

    print "length: ", length($vector), ' bytes, ', length($vector) * 8, ' bits.';

    my @deserialized = deserialize($vector);

    say "\tThe data ", (Compare(\@deserialized, [sort {$a <=> $b} @list]) ? 'matches.' : 'do not match.');
}