my @arr = '';
open(F,"x.txt") or die $!;
while (<F>) {
	chomp;
	my $Field = (split/\,/)[1];
	push(@arr,$Field);
}
close(F);

print "Listing data for:" . (join '/', @arr) .  "\n";

open(F,"x.txt") or die $!;
while (<F>) {
	chomp;
	print join(' ' , split /,/) . "\n";
}
close(F);