D:\>perl -MData::Dump=dump -e "@arr = (qw (a b),(qw(c)) x 4); print dump(\@arr)"
["a", "b", "c", "c", "c", "c"]