sub handle_fire {
    my ( $new, $x, $y, $fire_items ) = @_;
    my @temp;
    foreach my $item ( @$fire_items ) {
        my ( $xc, $yc ) = @$item;
        next unless $xc < $app->width + $images{beam1}->width;

        erase_image( $images{beam1}->width, $images{beam1}->height, $xc-10, $yc );
        put_image( $images{beam1}, $xc, $yc );

        push @temp, [$xc + 10, $yc];
    }
    push @temp, [$x, $y] if $new;
    return \@temp;
}