use strict;
use warnings;

my @unique_vault_list = (1..32);
my @tapes_for_box1 = splice @unique_vault_list, 0, 20;
my @tapes_for_box2 = splice @unique_vault_list, 0, 20;

print "Box 1: @tapes_for_box1\n";
print "Box 2: @tapes_for_box2\n";