#!/usr/bin/perl -w
use strict;
use Algorithm::Loops 'NestedLoops';
use List::Compare;
use List::Util qw (min max);
use somelib;  # (somelib.pm)

# rest of the code