#!/usr/bin/env perl 
use strict;
use warnings;
my @ar = qw/Sun Mon Tue Wed Thu Fri Sat Sun/;
my ($var1, $var2, $var3, $var4) = @ar[0,1,4,7];
print "$var1, $var2, $var3, $var4\n";
[download]

Array slices (or sections) use the @ symbol.