#!perl -w
use strict;

my $ini=4;
my $last=2;
my %result=(
    SAS1=>$ini-$last, # 2
    SAS2=>$last-$ini, # -2
    SAS3=>$ini-$last  # 2
);