sub reverse_all_arrays{
  @$_ = reverse(@$_) for(@_);
}