perl -e 'use Equipment;@a=(5,1,6,4);foreach (@a) { Equipment::read_eq($_); }'