... for my $line (@{$ra_lines}) { @info = split(/\s+/, $line); $name = $info[$#info]; ...