my $a = shift; 1st item
my $b = shift; 2nd item (if exits etc since it was bumped up to top by pervious shift.

my ($a, $b) = @_;

my $a = $query->param('a');
my $b = $query->param('b');