#help!
sub getClients{
    foreach(@file){
        next if m/(^#|^$)/;
        my ($cltnbr, $cltname) = split ('   ', $_);
        print "<a href='#' title='$cltnbr' name='$cltname' onclick='fillText(this);'>$cltname</a><br />";
    }
}