#!/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