$cnt = 0;
@addr_slice = @addresses[$cnt..$cnt+20];

#Now, when you create your message:
$msg = MIME::Lite->new (
  From => $wai,
  To => join(', ',@addr_slice),
  Subject => $subject,
  Type =>'multipart/mixed'
  ) or die "Error creating multipart container: $!\n";