#!/usr/bin/perl -w
use strict;
my @file;
while(<DATA>){
    chomp;
    push @file,$_;
}

&getClients;
#----------------------

sub getClients{
    my @tuples = map {[split /\s+/, $_]} grep { !/^(?:#|$)/ } @file;
    foreach(sort {$a->[1] cmp $b->[1]} @tuples){
        my ($cltnbr, $cltname, $clNum) = @$_;
        print "<a href='#' title='$cltnbr' name='$cltname $clNum' onclick='fillText(this);'>$cltname $clNum</a><br />";
        print qq|\n|;
    }
}

1;

__DATA__
001 client 1
002 client 2
003 client 3