for($i=1;$i<=$k;$i++)

##</code><code>##

for($i=1;$i<$k;$i++){

##</code><code>##

1
11

##</code><code>##

$ perl -wE 'for (0 .. 4) { say 11**$_ }'
1
11
121
1331
14641