Why don't you use module for mail? Anyway if you have to do it with command line, the code should look something like this:

my @email_address; # massive with addresses
foreach my $address (@email_addresses) {
      $t->cmd("mailx -s 'usage' $address <test$date.txt");
}
[download]