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