# All references to $calls removed

# $limbic_sets = [ ... ]
# foreach my $limbic_set (@$limbic_sets) { ... }

# The above two lines became
open(my $fh, '<', 'phase1.data') or die $!;
while ( <$fh> ) {
    my ($limbic_set) = $_ =~ /^(\w+)/;
    $limbic_set = [ split //, $limbic_set ];
    # ...
}

# removed print "checks set @$limbic_set\n";

# my $format = "%2s" x scalar(@$padded_limbic_set) . " (%d)\n";
# printf($format, (map {defined $_ && $display->{$_} ? $_ : ' '} @$padded_limbic_set), $idx);

# The above 2 lines became
print join '', map {defined $_ && $display->{$_} ? $_ : ''} @$padded_limbic_set;
print "\n";