use strict;
use warnings;

my $s = "1..11";
<DATA> for (1..5);
print for (1..10 or $s);
<DATA> for (1..7);
print for (1..10 or $s);


__DATA__
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15