#! perl -sw
use strict;

my @strings = map{"$_" x 200} 1 .. 3;

my ($total, $p) = (0, 0);
do {
	$total = 0;
	print substr( $strings[$_], $p, 60 ) . "\n" for 0 .. $#strings;
	print "\n";
	$p+=60;
	$total += length($_) - $p for @strings;
} while( $total > 0 );
__END__