package Math::Interval;
sub matrix_norm {
    my ($mat_ref) = @_;
    my @row_sums;
    foreach my $row_ref (@$mat_ref) {
        my $sum = reduce { $a->abs() + $b->abs() } @$row_ref;
        push @row_sums, $sum;
    }
    return max @row_sums;
}
package main;
my $a = Math::Interval::_interval(0.333333, 0.333334);