print( (sort @array)[0] );

##</code><code>##

my ($first) = sort @array;

##</code><code>##

use List::Util qw( minstr );

print( minstr @array );