my %ruler = ( title     => "King",
              fiefdoms  => ["Narnia","Gondor","Scotland"] );

##</code><code>##

$ruler->list_fiefdoms();

##</code><code>##

package Ruler;

sub new {
  bless $_[1],$_[0];
}

sub list_fiefdoms {
  my $self = shift;
  print join(",",@{$self->{fiefdoms}})."\n";
}
1;

##</code><code>##

use Ruler;
my $ruler = Ruler->new({ title     => "Tyrant",
                         fiefdoms  => ["Mordor","Giedi Prime","Texas"] });
$ruler->list_fiefdoms();