#!/usr/bin/perl -W

$wort="1234";
$len=length($wort);
$wort0=$wort;

#1.stelle
for ($i1=0;$i1<length($wort0);$i1++) {
$a = substr($wort0,$i1,1);
$wort1 = substr($wort0, 0 ,$i1) . substr($wort0,$i1+1,length($wort0) - ($i1+1));
#
#2.stelle
for($i2=0;$i2<length($wort1);$i2++){
$b = substr($wort1,$i2,1);

#3.stelle
$wort2 = substr($wort1,0,$i2) . substr($wort1,$i2+1,length($wort1)-($i2+1));
for($i3=0;$i3<length($wort2);$i3++){
$c = substr($wort2,$i3,1);

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

}

}