C:\>perl -E "@a = (1, 5, 7, 9);use List::Util qw( min max ); my $min = min @a;say $min;"
1