fromARRAY_SINGLE_W_TITLE.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &fromARRAY_SINGLE_W_TITLE();}
1;
sub fromARRAY_SINGLE_W_TITLE {
    my @ARRAY_S = @_;
    my $single;
    if (scalar(@ARRAY_S) <= 1) {return;}
    my $maxi=0;
    my $len = length(scalar(@ARRAY_S));
    print "$ARRAY_S[0]\n";
    for (my $i=1;$i<=scalar(@ARRAY_S)-1 ;$i++) {
        printf "  %-${len}s %-s\n",$i,$ARRAY_S[$i];
        $maxi=$i;
    }