# make a sequence array
@seq = ($f1, $f2, $f3);

# combined transform
sub trans2 {
	
	# for each code reference
	for (@seq) {
		
		# transform data
		@_ = &$_;
		
	}
	
	# return
	return(@_);
	
}

# call the transform
@trans = trans2(@data);

print "@trans\n";