#!/usr/bin/perl

use warnings;
use strict;

my @v = qw(2 0 64 2);
my @l = qw(5 1 10 8);
my $i;

my $bits = "";

for ($i=0; $i<=$#v; $i++) {
    my $s = "%0" . $l[$i] ."b";
    $bits .= sprintf("$s", $v[$i]);
}
print "$bits\n";