sub account_over_limit {
    my ($account, $balance) = @_;
    return exists $LIMITED_ACCOUNTS{$a­ccount} && $balance > $LIMIT;
}

##</code><code>##

BEGIN {
   my $var;
   sub set_var {
     $var = shift;
   }
   sub var {
     $var;
   }
}