>perl -E"$a[$_] = [1,3.2,'a short string'] for 1..10e6; <>"