sub FileCheck { my $file = shift; my $perm = shift; my $oot = shift; # etc } # or sub FileCheck { my ($file, $perm, $oot) = @_; # etc }