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