foreach(@a1){ push @all, ['a1', $_]; } foreach(@a2){ push @all, ['a2', $_]; } etc...