#...
my $foo = { a => [1,2,3,4,5] };

push @{$foo->{a}}, 6,7,8,9;
print @{$foo->{a}}

sub rpush  {
        push @{+shift},@_;
}

sub lst ($) {
        @{$_[0]}
}

sub rscalar ($) {
        scalar @{$_[0]};
}


my $foo = { a => [1,2,3,4,5] };

rpush $foo->{a} , 6,7,8,9;
print lst $foo->{a}, " restprint ...";
print rscalar $foo->{a};        

sub HRef { wantarray ? keys %{$_[0]} : %{$_[0]} };
 my $href = { qw(a 1 b 2) };
 foreach( HRef $href){
 print "$_\n";
 }

package HashRef;

sub new
{
 my $class=shift;
 my $ref=shift || {};
 $ref=ref($ref) eq 'HASH'? $ref : {};
 my $self={ref=>$ref);
 $self->{cnt}=0;
 bless($self,$class);
 return $self;
}

sub unref
{
 my $self=shift;
 $self->{cnt}=0;
 return(%{$self->{ref}});
}

sub ref
{
 my $self=shift;
 $self->{cnt}=0;
 if(@_ && ref($[0]) eq 'HASH')
 { $ref{ref} }
 else
 { return $self->{ref} }
}

sub keys
{
 my $self=shift;
 $self->{cnt}=0;
 return(keys(%{$self->{ref}}));
}

sub each
{
 my $self=shift;
 my @l=%{$self->{ref}};
 @l=splice(@l,$self->{ref},2);
 $self->{ref}+=2;
 return @l;
}

sub get
{
 my $self=shift;
 my $key=shift;
 return $sef->{ref]->{$key};
}

sub set
{
 my $self=shift;
 my $key=shift;
 my $value=shift;
 $sef->{ref]->{$key}=$value;
}

sub exists
{
 my $self=shift;
 my $key=shift;
 return exists($sef->{ref]->{$key});
}

sub type
{ return 'HASH'; }

1;

$foo{bar}{baz}->push(42);