Select Code to Download

sub handle_fire {
    my ($new, $x, $y) = @_;
...
        $i++;    
    }
}

    #draw gunshots, possibly add new one
    handle_fire( $fire, $x, $y );

    #draw gunshots, possibly add new one
    $fire_items = handle_fire( $fire, $x, $y, $fire_items );

my $fire_items;
    .
...
        .
        .
}

sub handle_fire {
    my ( $new, $x, $y ) = @_;
...
        $i++;
    }
}

sub handle_fire {
    my ( $new, $x, $y, $fire_items ) = @_;
...
    }
    return $fire_items;
}

    if ( $new ){
        push(@$fire_items, $x.' '.$y);
    }

    if ( $new ){
        push @$fire_items, [$x, $y];
    }

    push @$fire_items, [$x, $y] if $new;

        my ( $xc, $yc ) = split(' ', $$fire_items[$i] );

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

        $$fire_items[$i] = join(' ', $xc + 10, $yc );

        $$fire_items[$i] = [$xc + 10, $yc];

    unless ( $xc < $app->width + $images{beam1}->width ) {
        splice( @$fire_items, $i, 1 );
        next;
    }

sub handle_fire {
    my ( $new, $x, $y, $fire_items ) = @_;
...
    push @temp, [$x, $y] if $new;
    return \@temp;
}

sub handle_fire {
    my ( $new, $x, $y, $fire_items ) = @_;
...
    push @temp, [$x, $y] if $new;
    return \@temp;
}