foreach my $x (@cleared) {
	my $jobprofil = $x->{JobProfil};
	if (defined $jobprofil){
		print $jobprofil, "\n";
		} 
		else {
			unless ($x =~ m/^Something/){
			print "~~Something~~", $x, "\n";
			}
		}
} 

##</code><code>##

				else {
					unless ($x =~ m/^Something Else/){
					print "~~Something Else~~", $x, "\n";
					}
				}