Help for this page

Select Code to Download

Select or download this

#!/user/bin/perl -w
use strict;
...
  $a->{Y}[1] = $a->{X}[1];
  $a;
}