sub xyz {
my ($var1, $var2, $var) = @_;
...
}