my @fields = ( split /\s+/ ); # need to hold on to all fields for later my( $index, $label ) = @fields[4, -1]; # this is an array slice