#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;
use diagnostics;
use Data::Dumper;

# This is how the script gets the input to generate the arrays.
	my @Molecule_01 = ();
	open(FILE, "$inputname_01") or die "Could not open file  '$inputname_01' $!"; #directs the user to enter the file name to be used
	while (<FILE>) {
	push @struct_01, [ split ]; 			
		
	}


@Molecule_01 = qw(	[C 0.2565522 -1.5308230 0.0000000],
					[C -0.8038556 -0.7047550 0.0000000],
					[C -0.8519687 0.7637319 0.0000000],
					[C 0.3236482 1.5968480 0.0000000],
					;
					
@Molecule_02 = qw(	[C 0.3916152 -1.5774692 0.0000000],
					[C -0.8180007 -0.7937790 0.0000000],
					[C -0.8314989 0.6754852 0.0000000],
					[C 0.1934963 1.5451038 0.0000000],
					;
					
my @Delta = ();
for my $i (0..$#Molecule_01) {
	my $row = $Molecule_01[$i];
	for my $j (1..$#{$row}) {
	my $Delta = ($Molecule_01[$i][$j] - $Molecule_02[$i][$j]);
			print "\n Data Dumper on array:\n";
			print Dumper(\@Delta);
			print Dumper($Delta);	
	}
}

say "Done";
close;