my $max_bigint = $result[1];
foreach (@result) {
    if ($_ > $max_bigint) {
        $max_bigint = $_;
    }
}
say $max_bigint;