#!/usr/bin/perl -w
use strict ;
#
sub xxrc_ref {
#
use strict ;
#
my @tester = qw(a b c d) ;
my $rarray = \@tester ;
#
return $rarray ;
}
#
#######################################################
#                     Variables                       #
#######################################################
#
my $row                 = undef ;
my @response            = undef ;
#
print "\n\t<****** SOR ******>\n" ;
#
@response = &xxrc_ref() ;
#
print "\n\tResponse = @response\n" ;
#
for $row (@response) {
   print "\n\t@$row\n" ;
}
#
print "\n\t<****** EOR ******>\n\n" ;


##</code><code>##

        <****** SOR ******>
 
        Response = ARRAY(0x12e50c)
 
        a b c d
 
        <****** EOR ******>