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

##</code><code>##

for(my $i = 0; $i < @arr; $i++) {
    local $_ = $arr[$i];  
    push @arr, 'd' if $_ eq 'a';
    push @arr, 'e' if $_ eq 'b';
    push @arr, 'f' if $_ eq 'c';
    print $_;
}

##</code><code>##

foreach(() = @arr) {
   print;
}

##</code><code>##

$x = () = @arr;