#this one works
sub getNumbers{
    foreach(@file){
        next if m/(^#|^$)/;
        my ($cltnbr, $cltname) = split ('   ', $_);
        print "<span class='spacer'><a href='#' title='$cltnbr' name='$cltname' onclick='fillText(this);'>$cltnbr</a></span>";
    }
}

##</code><code>##

#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 />";
    }
}