#!/usr/athena/bin/perl
while(<>) {
chop;
@dists=split(/\,/);
foreach $dist (@dists) {
  print "\tadddist $dist\n";
}
}