my @tab = qw(a b c d);
    while(length @tab < 10)
    {
        push @tab, "a";    
    }