foreach my $ref ( sort {$a->{LastName} cmp $b->{LastName} or $a->{FirstName} cmp $b->{FirstName} } @records ){ print "{'ID'}\">", @{$ref}{qw/LastName/}, ',', ' ', @{$ref}{qw/FirstName/}, "", ""; }