package pkg;
sub y
{
  @Array = [];
  $Temp = {}; # Ankle bracket
  $Temp->{Name} = "Fred";
  $Temp->{Age} = 45;
  $Array[0] = $Temp;

  $Temp = {}; # Ankle bracket
  $Temp->{Name} = "Fred";
  $Temp->{Age} = 45;
  $Array[1] = $Temp;  
  return @List;
}
sub x
{
   @List = y();
}
1;
__END__