Simples!

#! perl -slw
use strict;

my %hash;
my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);

my $vec1 = my $vec2 = '';

for ( @array ) {
    if( vec( $vec1, $_, 1 ) ) {
        vec( $vec2, $_, 1 ) = 1;
    }
    else {
        vec( $vec1, $_, 1 ) = 1;
    }
}

$vec2 .= chr(0) x ( length( $vec1 ) - length( $vec2 ) );
$vec1 &= ~$vec2;

vec( $vec1, $_, 1 ) and print for 0 .. length( $vec1 ) * 8;

__END__
C:\test>933893
22
34
55
[download]