<font size="1"><span style="font-family:courier new,monospace">  1 #!/usr/bin/env perl</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">  2</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">  3 use strict;</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">  4 use warnings;</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">  5</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">  6 use feature 'say';</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">  7</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">  8 for my $i(1 .. 10) {;</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">  9     say $i;</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace"> 10 }</span></font><br><br><br>?? Why does that work?<br>
<br>