#!/usr/bin/perl

%hash = qw(first David last Sherrill job Professor);

@names = @hash{"first","last"};
print "names: @names\n";
# names: David Sherrill