foreach (\@list1, \@list2) {
  @$_ = sort {$a cmp $b} @$_;
}