$\="\n";$,="\t";
{
  package SAS;
  our ($ini,$last);
  sub _1 {$ini-$last}
  sub _2{$last-$ini}
  sub _3 {$ini-$last}
}
 
 
$SAS::ini=4;
$SAS::last=2;
 
print &SAS::_1, &SAS::_2 , &SAS::_3;