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};