#!/usr/bin/perl -W

$wort="abcd";
$len=length($wort);
$orgwort=$wort;

#1.stelle
for ($i1=0;$i1<$len;$i1++) {
	$wort=$orgwort;
	$a = substr($wort,$i1,1);
	$wort = substr($orgwort, 0 ,$i1) . substr($orgwort,$i1+1,$len - ($i1+1));
	#
	#2.stelle
	for($i2=0;$i2<$len-1;$i2++){
		$b = substr($wort,$i2,1);

		#3.stelle
		$wort3 = substr($wort,0,$i2) . substr($wort,$i2+1,length($wort)-($i2+1));
		for($i3=0;$i3<2;$i3++){
			$c = substr($wort3,$i3,1);
			
			#4.stelle
			$wort4 = substr($wort,0,$i3) . substr($wort3,$i3+1,length($wort3)-($i3+1));
			for($i4=0;$i4<1;$i4++){
				$d = substr($wort4,$i4,1);
					print($a . $b . $c . $d . "-" . $i1 . $i2 . $i3 . "\n");
			}
		}
			
	}

}