my ( $xc, $yc ) = @{ $fire_items[$i] };