C:\test>perl -Mstrict -wle" my $r = undef; my @x = map{ $_ } @{ $r }"