foreach my $key (keys(%hash)) {

	foreach my net (keys %{ $hash{$key} }) {
		my $date_time = (sort @{ $ssoidmfadates{$key}{$net} })[-1];
		my @dt_dob1 = unpack("A4xA2xA2",$date_time);
	
		if (check_date(@dt_dob1)){
			print  "SSO ID: $key, Mfa Cat : $net , Valid: $date_time\n";
			} else { 
		   
		  print "Not used";
		   }
	}
}