my $scalar1 = 1;
my $scalar2 = 2;

($scalar1,$scalar2) = my_subroutine(@array1,$scalar1,$scalar2);
print "$scalar1 $scalar2 \n";

sub my_subroutine() {
   @array1 = @{shift()};
   $scalar1 = shift();
   $scalar2 = shift();

   $scalar1 =+ 22;
   $scalar2 =+ 33;

return ($scalar1,$scalar2);
}