sub getSongs {
        my $dir = @_;  # INCORRECT: assigns @_ in SCALAR context

        ...

    }  # end of subroutine definition      

##</code><code>##

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