#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

my @list = "a" .. "zz";
my @disk_list = qw(foo bar baz);
my @new_list = @list[ 0 .. $#disk_list ];

map { say } @new_list;