単に短い記述にしたいだけなら、これでもいいかな？

sub func{
my ($aaa2, @lines2) = (pop, @_);

}