while (my $data = $sth->fetchrow_hashref) { 
            my $supplier = $data->{'supplier'}; 
               print $supplier . "\n"; 
} 

#while (my @data = $sth->fetchrow_array) { 
#            #my $supplier = $data->{'supplier'}; 
#            my $supplier = $data[0]; 
#            print $supplier . "\n"; 
#}