my @arr = qw/a b c/;
foreach (@arr) {
    push @arr, 'd' if $_ eq 'a';
    push @arr, 'e' if $_ eq 'b';
    push @arr, 'f' if $_ eq 'c';
    print $_;
}
print "\n";