$student = {}; $student->{last} = 'Smith'; #### &sub(\%hash, \@array); #### my %student = {}; $student{'last'} = 'Smith';