#!/usr/bin/perl
@linie = `cat cart.txt`;
print "Dane z pliku: @linie";
$ile = @linie;

print "\n\nAtomy:";
for($i=0; $i<$ile; $i++){
    if($linie[$i] =~ /(\S*)\s*(\S*)\s*(\S*)\s*(\S*)\s*(\S*)/){
        $1 = $nazwa[$i];
        $2 = $nr[$i];
        $3 = $x[$i];
        $4 = $y[$i];
        $5 = $z[$i];
        print "$nazwa[$i]\nNr: $nr[$i]\n x = $x[$i] y = $y[$i] z = $z[$i]\n\n";
    }
}

%a1 = ("$nazwa[1]", "$nr[1]" => "$x[1]", "$y[1]", "$z[1]");
%a2 = ("$nazwa[2]", "$nr[2]" => "$x[2]", "$y[2]", "$z[2]");
%a3 = ("$nazwa[3]", "$nr[3]" => "$x[3]", "$y[3]", "$z[3]");

@k1 = keys %a1;
@w1 = values %a1;

@k2 = keys %a2;
@w2 = values %a2;

@k3 = keys %a3;
@w3 = values %a3;

print "Hasz:\nKlucze Atom1: @k1, Wartości:@w1 \n";
print "Klucze Atom2: @k2, Wartości:@w2 \n";
print "Klucze Atom3: @k3, Wartości:@w3 \n";