Select Code to Download

@users = @{GetUsers()};
map { $tk{user_list}->insert('end',
...
                 -text=>"$_",
                 -image=>$im{ONE}) } 
@users;

sub GetUsers
{
...
    #return @found; # this does not return correctly.
    #return [qw/One Two Three/]; #this will return correctly.
}