sub _ {
	 +(@;=>@:) = map {[split//]} @_;
	 for (1..9) {
	 	push @: , join $&, map { shift @$_} @;
	 }
	 @:
}