for my $i (0..9)
  { print ziff($i,"X","L","C"), "\n"; }        
  
sub ziff
  {
  my $result;
  my @rom = ('', '$I', '$I.$I', '$I.$I.$I', '$I.$V', '$V', 
           '$V.$I', '$V.$I.$I', '$V.$I.$I.$I', '$I.$X');
  my ($wert, $I, $V, $X) = @_;
  return eval($rom[$wert]);
  }