The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[-
  $sourceOption[0] = 'Make Selection';
  $sourceOption[1] = 'Acme Vending';
  $sourceOption[2] = 'ABC Rental';

  @table = ([1, 2], [11,22]) ;

-]

<table class=1>
    <tr>
        <td>
            [- $file = $table[$row][$col] -]
            <table width="100%" border="0" cellspacing="2" cellpadding="0" name="filesourcetable">
                <tr width=1>
                  <td class="thdPage2ndLevel">Upload File [+ $file +]</td>
                </tr>
                <tr width=2>
                  <td width="42%" class="text">
                    <select name="source1" class="text">
                      <option>Make Selection</option>
                    </select>
                    <select name="source2" class="text">
                      <option>[+ $sourceOption[$row] +]</option>
                    </select>
                  </td>
                </tr>
            </table>
        </td>
    </tr>
</table>