#!/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 ;
}
[download]