and if you use:

my $n = @array;
my $count=0;
for (my $i=0; $i<$n; $i++){
    print $array[$count];
    $count++
}
[download]

$n gets in here the number of binary numbers
and $count gives you which number in the array must be printed