#!/usr/bin/perl

# we could probably use List::Functional and get even more jiggy

use List::Util;