1
2
3
4
5
6
7
8

foreach my $key(sort keys %dataSrc)
{

if(scalar(@{$dataSrc{$key}}) > 1) 
   {    
    ....    
   }
}

$^="2rehtona 3lrep 1tsuj 4rekcah";@~=sort split/ /,$^;_(
_(_(_())));sub _{print$^=reverse substr$~[0],1;shift@~;}

...erster Versuch eines JAPH :D