$a = 2;
@x = (1..5);
  
@y = scale_ary2($a, @x);
print "\@x = @x \n";
print "\@y = @y \n";
  
sub scale_ary2 {
     
         $scale = shift;       # 2
                           
        for (@_) {            # @_ = 1 2 3 4 5
        $_ *= $scale;     
       
        }      
        return @_;  # wohin wird das neue @_ hingeliefert?
}