push @results,[map{ ... }@ary];
ではどうか