Howdy my fellow monks... I'm having some eval trouble this afternoon. My eval isn't eval-ing, but returning the string of code instead. What is it I am doing wrong?

A typical value for $code is the following string (shown as if Dumped by Data::Dumper)

$VAR1 = '@sorted = sort 
                             {
                             warn "in sort";
                             $result->{$b}->{year} <=> $result->{$a}->
+{year} 
                             || lc $result->{$a}->{species} cmp lc $re
+sult->{$b}->{species}
                           } keys %{$result};';
[download]

This is the snippet of code where I try running the eval. The eval doesn't throw an error at all. It just doesn't seem to eval.

    my $code = qq(
    \@sorted = sort 
      {
    $table{$sort1} || $table{$sort2}
      } keys \%{\$result}
);
    warn "code is $code";
    @sorted = eval{ $code } ;
    warn Dumper [@sorted];
[download]

@sorted contains one item, the code string shown earlier. thanks!