use strict; 
use vars qw/@winbcp_info/; 
use Tk ();
use Tk::TList;   
use Tk::HList;
my $mw = Tk::MainWindow->new();
my $image = $mw->Getimage('folder');
#my $tlist = $mw->TList(-orient => 'vertical');
my $label = $mw->Label(-width=>15);
my $hlist = $mw->HList( -itemtype   => 'text',
                                         -separator  => '/',
                                         -selectmode => 'single',
                                         -browsecmd  => sub 
                                         {
                                             my $file = shift;
                                             $label->configure(-text=>$file);
                                         });
open (LST, "L:\\ceas\\Farringdon deployment\\Raj\\IED_IPB_TEST.CSV")||die "$^E : $!\n";
chomp (my @work_file=<LST>);
for (@work_file)
{
   my $data = {};
   ($data->{business_unit},	
     $data->{group_name},
     $data->{functions},) = split (/,/,$_);
     push (@winbcp_info, $data);
}
for my $text ( @winbcp_info )
{ 
  # $tlist->insert('end', -itemtype=>'imagetext', -image=>$image, -text=>$text->{business_unit});
   $hlist->add($text->{business_unit}, -text=>$text);
}

##</code><code>##

Dept			Group			Function
IT,			Projects,		SAN/NAS,
IT,			Development,		GUI,
IT, 			Security,

HR,			Admin,			West	
HR,			Management,		West

Legal,			Admin,			FirmWide,
Legal,		 	Compliance,