use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Useqq=1;

my $lines = ["A,B,C","D,E,F","G,H,I"];
print Dumper($lines);
my @store;
foreach my $line (@$lines) {
    my @val = split(/\,/,$line);
	print Dumper(\@val);
    push (@store,@val[2]);
}
print Dumper(\@store);