#! perl -w %a = (qw{ good orange bad apple} ); TEST(%a); sub TEST{ my %h = $_[0]; foreach (keys %h){ print $_; } } [download]
In reply to pass a hash to subroutine by benlaw