sub foo_writer {
 if ( length @_ > 1 ) {
  \@_
 }
 else {
  die 'invalid arg' unless ref $_[0] eq 'ARRAY';
  $_[0];
 }
}