perl -le 'push @{$f[/ad/]}, $_ foreach glob("*.mp3"); use Data::Dumper; print Dumper(\@f)' #### perl -le '@f = glob("*.mp3"); push @{$f[/ad/]}, $_ foreach @f; use Data::Dumper; print Dumper(\@f)' #### This is perl, v5.10.0 built for i386-linux-thread-multi