#!/usr/bin/perl

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

@karr = keys(%hash);
print "keys: @karr\n";
# keys: first last job

@varr = values(%hash);
print "values: @varr\n";
# values: David Sherrill Professor