my ($var,$rlist) = @_;

# de-reference $rlist like so: @{$rlist} - but, TIMTOWTDI ;)

foreach(@{$rlist}) {
	#do stuff
}