my @print_elements = map{ sprintf "%20s", $_ } @elements;
my $missing = $WANTED - @elements;
if ( $missing > 0 ) {
    print "Missing $missing element(s), current list: @print_elements\
+n";
}
else {
    # blah
}
[download]