perl -le '@f = glob("*.mp3"); push @{$f[/ad/]}, $_ foreach @f; use Data::Dumper; print Dumper(\@f)'