my (@ziffern, $zahl, $i);

print 'Geben Sie die zu buchstabierende Zahl ein: ';
chomp($zahl = <STDIN>);
@ziffern = split(//,$zahl);

print "-";
foreach $i (@ziffern)
  { print ziffer($i),"-"; }
print "\n";
  
sub ziffer
  {
  my $zif = shift;
  $zif =~ m/1/ && print 'eins';
  $zif =~ m/2/ && print 'zwei';
  $zif =~ m/3/ && print 'drei';
  $zif =~ m/4/ && print 'vier';
  $zif =~ m/5/ && print 'fünf';
  $zif =~ m/6/ && print 'sechs';
  $zif =~ m/7/ && print 'sieben';
  $zif =~ m/8/ && print 'acht';
  $zif =~ m/9/ && print 'neun';
  $zif =~ m/0/ && print 'null';
  }