You're coding your SQL the wrong way. This isn't an answer to your question (gjb already handled that) but a barb your buggy SQL coding style.

Quit it with the SELECT * and then fetching into an array. Either specify your column names explicitly like SELECT countryid, languageid, slid, title and fetch to an array OR continue to use SELECT * but fetch to a hash instead. You've got to break the implied link between column order in your RDBMS table and your perl code. Your current style just makes things harder than they need to be.

There's a wonderful example in the DBI documentation - I'll include it just because it's so pretty

$sth->execute;

my %row;
$sth->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
while ($sth->fetch) {
    # And now the same hash is re-used for every iteration.
    print "$row{region}: $row{sales}\n";
}

[download]

Seeking Green geeks in Minnesota

In reply to Re: Nesting SELECT statements by diotalevi
in thread Nesting SELECT statements by heezy

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.