$ perl -l
use Data::Dumper;
my $sql = " junk ";
Junk( $sql, 2,4 );
sub Junk {
    my @params = ($sql,@_);
    dbAction(@params);
}

sub dbAction(\@){
    print Dumper(@_);
    print Dumper(\@_);
}
^Z
$VAR1 = ' junk ';
$VAR2 = ' junk ';
$VAR3 = 2;
$VAR4 = 4;

$VAR1 = [
          ' junk ',
          ' junk ',
          2,
          4
        ];