@x=('ich bin lieb');
$bums= " $x[print ('da guckst du'),0]";
print $bums;