our @alias = @profit;
    my $maxprofit = pop @alias;
    foreach (@alias){
        $maxprofit = $_ if $maxprofit < $_;
    }
    our $index = 0;
    ++$index until $profit[$index] == $maxprofit or $index > $#profit;