#!/usr/local/bin/perl

use strict;

my %hash = map { chr(ord('@')+$_) => $_ } (1..26);
my $hashref = \%hash;

my @list = qw/A B L S Z/;

my @slice = @{$hashref}{@list}; 
my $multi = ${$hashref}{@list};

print '@slice == ['. join(', ', @slice). "]\n";
print "\$multi == '$multi'\n" if defined $multi;
print "\$multi == undef\n" if !defined $multi;

##</code><code>##

@slice == [1, 2, 12, 19, 26]
$multi == undef