use List::Util qw( minstr );

print( minstr @array );