use strict;
use warnings;

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

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