perl -we 'bless {}, "A$_" for 1 .. 2000000'