14. Discovery Q6

#!/usr/bin/perl
#program name: discoveryq4.pl
%staff = ( 'JeanJames', "555-9898" , 'RhondaSmith', "555-0982", 
'JoeMilner', "555-8944" , 'GregJones' , "555-0716" );
print ("the staff details are:\n");
print ("JeanJames $staff{'JeanJames'}\n");
print ("RhondaSmith $staff{'RhondaSmith'}\n");
print ("JoeMilner $staff{'JoeMilner'}\n");
print ("GregJones $staff{'GregJones'}\n");