johngg@shiraz ~ $ perl -Mstrict -Mwarnings -MData::Dumper -E '
my @atts = qw{ att1 att2 att3 };
say Dumper( @atts );
say Dumper( \ @atts );
say Data::Dumper->Dump( [ \ @atts ], [ qw{ *atts } ] );
say Data::Dumper->Dumpxs( [ \ @atts ], [ qw{ *atts } ] );'
$VAR1 = 'att1';
$VAR2 = 'att2';
$VAR3 = 'att3';

$VAR1 = [
          'att1',
          'att2',
          'att3'
        ];

@atts = (
          'att1',
          'att2',
          'att3'
        );

@atts = (
          'att1',
          'att2',
          'att3'
        );