print "From outside the subroutine:\n";
my $i = 0;
while ( $i < @names )
{
	print "$myHash{ $names[$i] }{ name }\n";
      $i++;
}