foreach my $key(sort keys %dataSrc)
{

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