use strict;
use warnings;

my @unique_vault_list = (1..32);
my @tapes_for_box1 = @unique_vault_list[0..19];
my @tapes_for_box2 = @unique_vault_list[20..$#unique_vault_list];

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