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