$dev="/cps";

for($i=1;$i<=$end;$i++) {
  pgbegin(0,$dev,1,1);
  pgenv($ra[$i]-0.05,$ra[$i]+0.05,$dec[$i]-0.05,$dec[$i]+0.05,1,0);
  pglabel('RA (J2000)','dec. (J2000)',$name[$i]);
  #plot stuff
  pgend;
  system "mv pgplot.ps $name[$i]_dist.ps"
}

##</code><code>##

  system "mv pgplot.ps $name[$i]_dist.ps && rm pgplot.ps";