#current selected item in list $grid->bindRows('', sub { my ($w, $infoHR) = @_; print "$customers[$infoHR->{-row}][$infoHR->{-column}]\n", });