Hello all! I actually don't have a problem with my code; I am, quite literally, seeking perl wisdom. I've used a similar bit of code in two different scripts to modify the default sub functions associated with variable Win32::GUI components. My first bit of code: 
$comboboxes[$accountCount] = $main->AddCombobox(
    -name       => $accountName."ComboBox",
    -top        => $top,
    -left       => $left,
    -width       => 145,
    -height      => 150,
    -tabstop     => 1,
    -style         => WS_VISIBLE | 3 | WS_VSCROLL
);

foreach my $x (0..$accountCount){
    $SUB = $accounts[$x]."ComboBox_Change";
    *$SUB = sub { ComboBox $x };
}

[download]
That works fine. Porting it to my second script failed, though... the variable $j below gets passed as a reference instead of the value. That is to say, if I declared $j globally, everytime my sub got called, it had the global value. If it was local to the sub function, no value was passed. So, I ended up doing this: 
        $uniqueWindow[$i] = $main->AddTextfield(
            -height            => 200,
            -width            => $w-30,
            -background    => [255,255,255],
            -top                => $top,
            -left                => 10,
            -text                => "",
            -name            => $i."Textfield",
            -align                => left,
            -readonly         => 1,
            -multiline        => 1,
            -autovscroll     => 1,
            -vscroll            => 1,
        );

    foreach my $j (0..$i-1) {
        $SUB = $j."Textfield_MaxText";
        print "-->Assigning sub function for $j\n";
        # Really?!  Do I have to do this?!
        switch ($j) {
            case 0    {*$SUB = sub { variableMaxText(0); };}
            case 1    {*$SUB = sub { variableMaxText(1); };}
            case 2    {*$SUB = sub { variableMaxText(2); };}
            case 3    {*$SUB = sub { variableMaxText(3); };}
            case 4    {*$SUB = sub { variableMaxText(4); };}
            case 5    {*$SUB = sub { variableMaxText(5); };}
            case 6    {*$SUB = sub { variableMaxText(6); };}
            case 7    {*$SUB = sub { variableMaxText(7); };}
            case 8    {*$SUB = sub { variableMaxText(8); };}
            case 9    {*$SUB = sub { variableMaxText(9); };}
            case 10    {*$SUB = sub { variableMaxText(10); };}
            case 11    {*$SUB = sub { variableMaxText(11); };}
        }
    }

[download]
I don't plan on ever having more then 12 textfields, so it's functional, but the fact that it isn't truly variable bothers me. :-) Maybe I'm just too "Type A" or something. A key difference is probably the context: code snippet #1 occurs in the "main" section of the code, before any user interaction (before Win32::GUI::Dialog(), if you're familiar with the module). The second snippet exists in a sub function and is called during the course of user interaction. Hope I explained that adequately. I'm eager for an explanation!

In reply to Global vs. local? by jpavel

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.