perl -MPOSIX -E'@x=qw(a b c d); say $x[$_] for (-2, -2.9, int(-2.9), POSIX::floor(-2.9))'
c
c
c
b