sub ResultView_ItemClick(2) {
   $Display->results->Text(${$List{2}}{message});
}

##</code><code>##

my $code = "sub ResultView_ItemClick($count) { $Display->results->Text(${$List{$count}}{message});}";
eval $code;