#!/usr/bin/perl

if (!equality) {
warn, join(all,together), shift, share until $equality;
}
if (!$justice) {
warn, push(@system,struggle), reverse || die;
}