for (@LISTING) {
  ($one,$two)=split /,/,$_,2;
  print "$two\n";
  print "$one some info\n";
}