[- $i = 0; @k = keys %ENV -] [$ while ($i < $#k) $] [+ $k[$i] +] = [+ $ENV{$k[$i]} +]
[- $i++ -] [$ endwhile $]

This is a example of using the while metacommand in embperl to show the loaded modules

[- $i = 0; @k = keys %INC -] [$ while ($i < $#k) $] [+ $k[$i] +] = [+ $INC{$k[$i]} +]
[- $i++ -] [$ endwhile $]