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

##</code><code>##

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