sub test {
my($a,$b,$c) = @_;
...
}