#! /usr/bin/perl

use strict  ;
use warnings ;


foreach ( keys &testa ) {
	print "key is $_\n" ;
}

sub testa {
	my %s ;
	$s{'a'} = 10 ;
	$s{'b'} = 20 ;
	$s{'c'} = 30 ;

	return %s ;
}