#! 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(\@_);
}