my ($dir) = @_;  # assign @_ in list context