#!C:\Perl\bin

use strict;
use warnings;

my @beginning = (34, 76);
my @ending = (72, 85);
my @interdomainatoms = (33, 34, 72, 73, 75, 76, 77, 78);
my $jcounter = 0;
my $nseg = 1;

	for (my $iseg = 0; $iseg <= $nseg; $iseg++){

		for (my $ires = $beginning[$iseg]; $ires <= $ending[$iseg]; $ires++) {

				if ($ires == $interdomainatoms[$jcounter]) {

				print STDOUT $ires;

				$jcounter++;
				}	
		   }	
	}