Select Code to Download

$VAR1 = '@sorted = sort 
                             {
...
                             $result->{$b}->{year} <=> $result->{$a}->
+{year} 
                             || lc $result->{$a}->{species} cmp lc $re
+sult->{$b}->{species}
                           } keys %{$result};';

    my $code = qq(
    \@sorted = sort 
...
    warn "code is $code";
    @sorted = eval{ $code } ;
    warn Dumper [@sorted];