use warnings; use strict;
for my $i (
	"  ab ", 
	"  ab   ", 
	"  abc   ", 
	"  abcd   ", 
	"  abcde   ", 
	"  abcdef   ", 
	"  abcdefg   "
) {