shift requires an array. sort doesn't return an array. (An array can't be even be returned by subs or functions.)

Solution:

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

Or if you were assigning to a scalar,

my ($first) = sort @array;
[download]

Update: Why sort at all?

use List::Util qw( minstr );

print( minstr @array );
[download]