在Perl中，如何找到列表中的最小值并保持索引与该值相对应？

我正在寻找区分side_i和side_j之间的区别，以找到最小值……，然后……将最小和最大乘以给定的数字。

这很简单。但是，我仍然希望能够以这样的方式来区分i和j，以便我知道它们相乘之后是哪个。

到目前为止，这就是我所拥有的。请注意，我是Perl和常规编码的新用户：

use strict; 
use Getopt::Long;
use List::Util qw(max);
use File::Find;
use warnings 'all';



my $side_i = 24.56; 
my $side_j = 3.56; 
my $maxi = 10;
my $maxj = 10; 
my $threshold = 0.05; 
my $small_side;



(my $sside, my $bside) = smallestTest($side_i, $side_j);


sub smallestTest{

    my $sside;
    my $bside;
    print "$_[0] $_[1] /n";
    if ($_[0]<$_[1]){
        $sside = $_[0];
        $bside = $_[1];
    } else {
        $sside = $_[1];
        $bside = $_[0];
    }
return($sside, $bside);
}
print "Biggest side is $bside /n";

my $newSide_i = $.....*20;
my $newSide_j = $.....*21;