Select Code to Download

#!perl -w
use strict;
...
    SAS2=>$last-$ini, # -2
    SAS3=>$ini-$last  # 2
);

#!perl -w
use strict;
...
          'SAS2' => -5,
          'SAS1' => 5
        };