y @a = (1);
foreach (sort @a) { push @a, 1; }