#!/usr/bin/perl -l

use strictures 1;
no strict 'refs'; 
use Devel::SimpleTrace;

print my $message = 'Congrats' if defined ${'result'};

my @badVals; 
foreach my $val (my(@vals)) { 
    push @badVals, $val && next if isBad($val);
    print "$val is a good val";
} 

sub isBad {...}