Select Code to Download

foreach my $x (@cleared) {
    my $jobprofil = $x->{JobProfil};
...
            }
        }
}

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