my @a = 0 .. 9;
print $a[3.5];
3