opendir (my $DIR, $path);
my @musik = grep {/\.mp3/i} readdir ($DIR);
closedir ($DIR);