Select Code to Download

use List::Util 'shuffle';
use List::MoreUtils 'minmax';
...
}

print "\nMin/Max elements: (", join( ',', minmax @quantities ), ")\n";