wert aus anonymen Array ausgeben

[benito]

Hi Leute :

Hab folgendes aus dem Kochbuch:

#!perl
%seen = ();
$dir = shift;
opendir (IN, $dir) or die "Error 1 while reading data: $!";
while (defined ($file = readdir IN)) {
foreach $file (@fi) {
($dev, $ino) = stat $file;
push( @ { $seen{$dev,$ino}}, $file);
}
foreach $devino (sort keys %seen) {
($dev, $ino) = split(/$;/o, $devino);
if (@{$seen{$devino}} > 1) {
#####??????? @{$seen{$devino}} ist eine Liste von Dateien für die gleiche Datei;
}
}
}
wie bekomme ich also @{$senn ...usw. auf STDOUT??
Hab schon alles Mögliche (aus der Hüfte geschossene ausprobiert) - keine Ahnung.
Danke für´s lesen!
B.