Another approach would be to dynamically generate a template for printf. Here's an example:

    my @missing  = qw(apple oranges);
    my $template = "Missing %d element , current list :"
                 . ("%9s") x @missing
                 . "\n";
    printf $template, scalar @missing, @missing;
[download]