$ time perl cut.pl numbers.csv > /dev/null

real    0m5.577s
user    0m4.792s
sys     0m0.055s

$ time cut -d, -f"1-15" numbers.csv > /dev/null

real    0m1.081s
user    0m0.866s
sys     0m0.042s