#!/usr/bin/perl
use warnings;
use strict;

my %fhs;

my $molecule = "1kc4";

open my $FILE, '<', 'input_file' or die $!;
while (<$FILE>) {

  chomp;
  my @columns = unpack('a8 a8 a8 a6');
  #print join(" ",map {$_} @columns), "\n";
  #print "@columns[3] \n";
    
  foreach (@columns[$#columns]) {
 
    my $abs = abs( $columns[ $#columns ] );

    open $fhs{ $abs }, '>', "${molecule}_cluster_" . $abs or die $! unless exists $fhs{ $abs };
    my $file = $fhs{ $abs };
         
      my $ID = $_;
      my $IDform = sprintf ("%4s", $ID);
     
      my $currentline = $.;
      my $currentlineform = sprintf ("%7s", $currentline);##

      my @selection = (@columns[0..$#columns-1]);
      my $layout = "%10s"x(@selection) . "\n";

      printf $file $IDform . $currentlineform . $layout, @selection;
  }
}