sub padarrays {
    my $padchar = shift;
    my @arrays = @_;
    my $max = 0;
    foreach my $aref ( @arrays ) {
        $max = ( @{$aref} > $max ) ? @{$aref} : $max;
    }
    foreach my $aref ( @arrays ) {
        my $padqty = $max - @{$aref};
        next unless $padqty;
        push @{$aref}, $padchar x $padqty;
    }
}