Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "$set\n";
    powerset($_) for subsets($set);
}

sub subsets {
    my $set = shift @_;
...
    }
    return @ret;
}

sub subsets {
    my $set = shift @_;
...
    }
    return @ret;
}

# All references to $calls removed

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