my @data = ( undef, undef, qw/ bingo nameo / ); print @data[ -1,-2,-3 ]; __END__ nameobingo