hi,
machs über einen hash
@a = qw(1 1 1 3 3 3 4 4 4 );
%h = undef;
%h = map{ $_,1 }@a;
foreach $key(sort keys %h){ print "$key\n"}
Rolf
nicht angemeldet nicht angemeldethi,
machs über einen hash
@a = qw(1 1 1 3 3 3 4 4 4 );
%h = undef;
%h = map{ $_,1 }@a;
foreach $key(sort keys %h){ print "$key\n"}
Rolf