perl -Mstrict -lwe 'my @a = (0..20); print $a[$_] for 3.14159, 0.06, (75/9), (-75/9)'
3
0
8
13