#! perl
use strict;
use warnings;
use Data::Dumper;

my @params = qw(homer marge bart lisa maggie);
dbAction(@params);

sub dbAction
{
    print Dumper( @_), "\n";
    print Dumper(\@_);
}

##</code><code>##

$VAR1 = 'homer';
$VAR2 = 'marge';
$VAR3 = 'bart';
$VAR4 = 'lisa';
$VAR5 = 'maggie';

$VAR1 = [
          'homer',
          'marge',
          'bart',
          'lisa',
          'maggie'
        ];