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