my $fs = '';
for (my $f = 0; $f < 10; $f++) {
	#last if $f == 7;
	next if $f == 5;
	print "f: $f\n";
	$fs .= "$f ";
	redo if length($fs) == 6;
}
print "fs: $fs\n";