sub getClients{
    my @sortedclients;
    my @joinedarray;
    foreach(@clients){
        next if m/(^#|^$)/;
        my ($cltnbr, $cltname) = split ('   ', $_);
        my $joined = join " ", $cltname, $cltnbr;
        push @joinedarray, $joined;
    }
    foreach(@sortedclients = sort @joinedarray){
        my ($cltname, $cltnbr) = split ('   ', $_);
        print "<a href='#' title='$cltnbr' name='$cltname' onclick='fillText(this);'>$cltname</a><br />";
    }
}