Select Code to Download

my $sqldata = [
   { level => 2, menuname => 'cccccc' },
...
for ( 0 .. $#$sorted ) {
   print $sorted->[$_]{level}." ".$sorted->[$_]{menuname}."<br>";
}