my $ini=4;
my $last=2;

##</code><code>##

my %result=(

SAS1=>$ini-$last,
SAS2=>$last-$ini,
SAS3=>$ini-$last
);
##</code><code>##

my $ini=10;
my $last=5;