foreach $_ (@list) {
        ...
	my @list = @tokens[0,3,4,7,8];
        ...
	push (@list, $_);