#!/usr/bin/perl -w


	use strict;
	use warnings;

	my $line;
	my @pdb;
	my @arr;
	my $count=0;

	open(FH,"2FGI(1).pdb");
	@pdb=<FH>;

	foreach $line (@pdb){
	$count++;
	
	}

	@arr= splice(@pdb,$count/2);
	print @arr,"\n";

	open(WRITE,">out.pdb");

	print WRITE "@arr";

	@arr= splice(@pdb,$count/10);
	print @arr,"\n";

	open(WRITE,">out1.pdb");

        print WRITE "@arr";