open (FOO, 'a_VSAM_file');
while (<FOO>){
	do_something();
}
close FOO;