use strict; use warnings; use Data::Dumper; use List::MoreUtils qw(before); my @TillUndefSquared = map { $_ ** 2 } before { !defined $_ } ( 1, 2, 3, 4, undef, 'irgend', 'ein', 'Blödsinn' );