#!/usr/bin/perl --
#~ use strict;
#~ use warnings;
use CGI;
my $query = CGI->new( { 'query; system q{echo deleting files}; $query ', 'BANANA', 'z','z' } );
my @names = $query->param;
for( @names ){
    $val = $query->param($_);
    eval "\$$_ = '$val';" or warn $@;
}
__END__
deleting files
Can't locate object method "param" via package "BANANA" (perhaps you forgot to load "BANANA"?) at - line 8.