multiplizieren im hash

[Siechfred]

ich habe eine liste, z. B.
1 3 aha
2 5 gehen
3 10 laufen
Die Datei ist im Hash.

Für komplexe Strukturen gibt es perldsc.

Beispiel:

use strict;  
use Data::Dumper;  
  
my %liste = ( foo => [1, 3],  
              bar => [2, 5],  
              baz => [3, 10]  
            );  
my %erg = map { $_ => $liste{$_}->[0] * $liste{$_}->[1] } keys %liste;  
print Dumper %erg;

Als Denkanstoß.

Siechfred