sub functionname {
$a = shift;
$b = shift;
$c = shift;
warn unless (ref \$a =~ /SCALAR/);
warn unless (ref  $b =~ /ARRAY/);
warn unless (ref \$c =~ /SCALAR/);
}