According to Mastering Perl/Tk, the way to get the selection from a Listbox (and a TList) is

@selected = $tl->curselection;
foreach (@selected) {
    # Do something with the index:
    $selitem = $tl->get($_);
}
[download]

(I haven't tested the code, maybe your code barfs because the @sel list is empty).

Arjen