You can pad each line out to a fixed length with sprintf. The following makes a string 70 characters long if <= 70 characters to:

while(<INPUT>) {
        push @array = sprintf "%70s", $_;
}
[download]

$japh->{'Caillte'} = $me;