$ perl -Mstrict -wle'my @f = glob("*.mp3"); push @{$f[/ad/]}, $_ foreach @f;' Can't use string ("bar.mp3") as an ARRAY ref while "strict refs" in use at -e line 1.