my @list;
foreach (0 .. 5) {
  push (@{$list[$_]},"some text");
}