Using my argmin subroutine from argmin & argmax, it's really easy:

my @things   = qw[ hello superduper hi ];
my $shortest = argmin { length } @things;
[download]

In English, this reads: "return the element among @things that minimizes the length function."

Alternatively, you could loop through the array, manually keeping a watermark of the shortest string seen so far and its index.