my %Nicks; # global variable

# you accept the NICK, then
$Nicks{$client} = $nick;

# later on, when you get a message
$client->print("$Nicks{$client} $msg") # NICK message

# when the client disconnects
delete $Nicks{$client};