foreach (0..1000) {
    my $string;
    $string .= ('a'..'z','A'..'Z')[rand 52] for 1 .. 4096;
    push @array, $string;
}