warn Data::Dumper->Dump(
    [$foo, \@array],
    [qw/*foo *array/]
  );