perl -le '@l = glob("*.mp3"); push @{$f[/ad/]}, $_ foreach @l;