use strict;
use warnings;
use autodie;
use List::Util qw(first max maxstr min minstr reduce shuffle sum);
# etc...