What you want (as documented in Tk::TList) is this:

@foo = $tlist_foo->info('selection');
[download]

(Your example code is missing a '$' but I assume that's a typo because your script wouldn't have compiled that way).