Untested:

my @integers = 1..50000;
print $integer[15/2];
[download]

Yes, I'm just being silly. Also, this won't work for negative numbers. At all.