sub test {
my $a = shift;
my $b = shift;
my $c = shift;
...
}