sub fbhp {
    [...]
    my @status;
    my $count = $#elements;
    push @status, 0 for (0..$count); 
   [...]