my @replacements; my @rules; for ( 0 .. $#replacement_pairs ) { push @{ $_ & 1 ? \@replacements : \@rules }, $replacement_pairs[$_]; }