Select Code to Download

$mech->post(
   $uri,
...
      samba => '39',
   ],
);

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

...
      ( map { samba => $_ } @sambas ),
   ],
);