@array = map {"log$_"} map {my $s = $_; map {"$_$s"} qw [a b]} 1 .. 7;