Mine

sub nick_change
{
  my ( $from, $to ) = ( $_[1], $_[2] );
  if ( grep( /$from/, @users ) )
   {
     @users = grep( !/$from/, @users );
     push( @users, $to );
   }
}