Without going into the political discussion and purely from a poetical point of view, I find the opposition between

use strict;
use warnings;
[download]

and

no strict;
no warnings;
[download]

rather well found.

Also the my $America = shift; in the new sub-routine was well chosen. Perhaps my $America = shift @right; would have been even better. my $America = shift $right; would be even more evocative, but that is not valid Perl.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law