if($event-> key_sym == SDLK_UP){
                $player1->{v_y} = -2;
            }        
            elsif($event->key_sym == SDLK_DOWN){                                            
                $player1->{v_y} = 2;
            }