push ( @array, $val ); # test -skp and also -sak='push'
split ( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'
push ( @array, $val ); # test -skp and also -sak='push'
split ( /\|/, $txt ); # test -skp and also -sak='push'
my ( $v1, $v2 ) = @_; # test -sak='push'