$mech->post(
   $uri,
   [
      ...,
      email => 'samba@gmail.com',
      samba => '45',
      samba => '172',
      samba => '39',
   ],
);

##</code><code>##

my @sambas = ('45', 172', '39');

$mech->post(
   $uri,
   [
      ...,
      email => 'samba@gmail.com',
      ( map { samba => $_ } @sambas ),
   ],
);